Переписать код без Function - Turbo Pascal

Формулировка задачи:

program p;
[COLOR="Red"]function prost(a:integer):boolean;[/COLOR]
var i:integer;
begin
prost:=true;
for i:=2 to a div 2 do if a mod i =0 then prost:=false;
end;
 var a,i,x:integer;
f:boolean;
begin
f:=true;
 
for x:=0 to 40 do
begin
a:=(x*x)+x+40;
writeln(i,'^2+',i,'+40=',a);
if not(prost(a)) then begin
                            writeln('Утверждение не верно');
                             break;
                             readln;
                             halt;
                            end;
end;
writeln('Утверждение верно');
readln;
end.

Вот решена программа...она работает правильно,но её нужно решить без команды function...помогите пожалуйста

Решение задачи: «Переписать код без Function»

Листинг программы

program p;
uses crt;
var a,i,j:integer;
f:boolean;
begin
clrscr;
 f:=true;
for i:=0 to 40 do
 begin
   a:=(i*i)+i+40;
   for j:=2 to round(sqrt(a)) do{считать надо только до корня}
   if a mod j =0 then f:=false;
   writeln(i,'^2+',i,'+40=',a);
   if i=20 then readln;{задерка, а то все на экран не входит}
 end;
   if not f then writeln('  Утверждение неверно!')
   else writeln('  Утверждение верно!');
readln
end.

Объяснение кода листинга программы

В программе объявлены переменные a, i, j типа integer и переменная f типа boolean.
Строка с форматированием кода начинается с символа ;, а не с program.
Переменная a инициализируется как (i*i)+i+40.
Затем происходит цикл for, который выполняется от 2 до корня из a.
Внутри цикла проверяется, делится ли a на j без остатка. Если да, то переменной f присваивается значение false.
После завершения цикла выводится значение a.
Если i равно 20, то программа запрашивает ввод с помощью функции readln.
Если значение переменной f равно false, то выводится строка Утверждение неверно!. В противном случае выводится строка Утверждение верно!.
Программа завершается после строки readln.