Типизированные файлы

[surf135]

Пусть дан файл целых чисел. Определите,является ли числа в файле упорядоченными(по возрастанию или по убыванию).

Вот я сам написал,но почему то ошибка...

Uses WinCRT;
type
 ch=file of integer;
var
f1:ch;
i,g,j,kol,s:integer;
procedure sozd(var f1:ch);
var
a:integer;
begin
writeln('kil-vo elem');
read(kol);
assign(f1,'1.111');
rewrite(f1);
for i:=1 to g do
begin
readln(a);
write(f1,a);
end;
close(f1);
end;

procedure search;
begin
RESET(F1);
read(f1,g);
while not eof(f1) do begin
read(f1,j);
s:=0;
if g>i then s:=s+1;
writeln(s);
end;
end;
begin
sozd(f1);
search;
end.

[Stilet]

if g>i then s:=s+1;

if g>j then s:=s+1;
Ты не ту переменную поставил