Списки, файлы, Pascal, отредактировать код.

[Skipper Ok]

Само задание: Первая программа должна запросить у пользователя число n, а затем запросить n целых положительных чисел, записав эти числа в файл. Вторая программа должна вывести true, если сумма чисел в файле является простым числом, и false в противном случае.
Первая программа

var outputFile : file of integer;
 n, i, tmp : integer;

begin
assign(outputFile, 'input.bin');
rewrite(outputFile);

write('Enter the number of elements: ');
readln(n);
writeln('Enter the elements: ');
for i := 1 to n do begin
read(tmp);
if tmp<=0 then begin writeln('not pozitive'); halt; end;
write(outputFile, tmp);
end;

close(outputFile);
end.

Вторая программа

var inputFile : file of integer;
 n, i, tmp,sum : integer;

function prost(su:integer):boolean;
var h:integer; f:boolean;
begin
f:=false;
for h:=2 to round(sqrt(su)) do
 if su mod h = 0 then begin f:=true;
end;
if not f then prost:=true else prost:=false;
end;

begin
assign(inputFile, 'input.bin');
reset(inputFile);
while not eof(inputFile) do
begin
read(inputFile,tmp);    sum:=sum+tmp;
end;
close(inputFile);
 if prost(sum) then writeln('Yes') else writeln('No');

end.

В общем, во второй программе нужно как-то по другому описать функцию
строчка

f:=false;

и

if not f then prost:=true else prost:=false;

какие-то странные.

и что значит h в описании функции???

[type_Oleg]

Переменная h - это перебирают все возможные делители от 2 до примерно корня из su
Записано на самом деле странно.
Описать то, что написано можно по другому.

function prost(su:integer):boolean;
var h,sq:integer; 
begin
 prost:=True;
 sq:=Round(Sqrt(su));  //  чтобы не считать эти корни каждый раз в цикле
 for h:=2 to sq do
   if (su mod h)=0 then 
    begin
     prost:=False;
     Break;  // или Exit ; 
    end;
end;