Найти минимальное и максимальное числа и записать их в файл output.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.

PROGRAM TRAPAPA;
USES CRT;
CONST N=10;
VAR  X,Y,I,U,MAX,MIN:INTEGER; 
     F,K:TEXT;
BEGIN
  CLRSCR;
  ASSIGN(F,'C:\Documents and Settings\ученик\Мои документы\10 классы\INPUT');
  RESET(F);
  MAX:=-10;
  MIN:=10;
  WHILE NOT EOF(F) DO BEGIN
    READ(F,X);
    IF X>MAX THEN MAX:=X;
  END;
  WHILE NOT EOF(F) DO BEGIN
    READ(F,Y);
    IF Y<MIN THEN MIN:=Y;
  END;
  CLOSE(F);
  ASSIGN(K,'C:\Documents and Settings\ученик\Мои документы\10 классы\OUTPUT');
  REWRITE(K);
  WRITELN(K,MAX);
  WRITELN(K,MIN);
  CLOSE(K);
END.