Процедуры и функции. Работа с файлами.

uses crt;
type fail=file of integer;
function Vozr(var f:fail):boolean;
var a,b,i:integer;
begin
reset(f);
Vozr:=true;
read(f,a);
i:=0;
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,b);
  if b<=a then
   begin
    Vozr:=false;
    break;
   end
  else a:=b;
 end;
close(f);
end;
var g:fail;
    x,n,i:integer;
begin
clrscr;
assign(g,'file1');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  write('x=');
  readln(x);
  write(g,x);
 end;
clrscr;
close(g);
writeln('Содержание файла:');
reset(g);
while not eof(g) do
 begin
  read(g,x);
  write(x,' ');
 end;
writeln;
close(g);
if Vozr(g)then write('Элементы файла упорядочены строго по возрастанию!')
else write('Элементы файла не упорядочены строго по возрастанию!');
readln
end.

uses crt;
type fail=file of real;
procedure Summ(var f:fail;var sum:real);
var a:real;
begin
reset(f);
sum:=0;
while not eof(f) do
 begin
  read(f,a);
  if a<0 then sum:=sum+a;
 end;
close(f);
end;
var g:fail;
    n,i:integer;
    x,s:real;
begin
clrscr;
assign(g,'file1');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  write('x=');
  readln(x);
  write(g,x);
 end;
clrscr;
close(g);
writeln('Содержание файла:');
reset(g);
while not eof(g) do
 begin
  read(g,x);
  write(x:0:2,' ');
 end;
writeln;
close(g);
Summ(g,s);
write('Сумма отрицательных элементов файла=',s:0:2);
readln
end.