Файлы. В файл output.txt записать максимальное и минимальное числа из файла input.txt

var s, x,max,min: integer;
    f: text;
begin
   assign(f, 'input.txt');
   reset(f);
   max:=1;
   min:=1;
while not eof(f) do begin
readln(x);
 if x>max then x:=max;
 if x<min then x:=min
end;
 close(f);
assign(f, 'output.txt');
rewrite(f);
writeln(f, 'MAX ', x);
writeln(f,'min',x);
close(f);
end.

var x,max,min,i: integer;
    f: text;
begin
assign(f, 'C:\input.txt');
reset(f);
while not (eof(f)) do
      begin
      inc(i);
      readln(f,x);
      if i=1 then
         begin
         max:=x; min:=x;
         end else
         begin
         if x>max then max:=x;
         if x<min then min:=x;
         end;
      end;
 close(f);
assign(f, 'C:\output.txt');
rewrite(f);
writeln(f,'max ',max);
writeln(f,'min ',min);
close(f);
end.

uses crt;
var f,g:text;
    a,max,min:integer;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
max:=0;
min:=0;
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if a>max then max:=a;
      if a<min then min:=a;
      end;
writeln(g,'max ',max);
writeln(g,'min ',min);
close(f);
close(g);
end.