FONForum

Type
 tNiz = array[1..20] of real;
 tZapis = record
           i: byte;
           niz: tNiz;
          end;
 tDat = file of tZapis;
 tDatTxt = text;

Procedure NadjiMax(niz: tNiz; brElem: byte; var max: real);
 var
   i: integer;
 begin
  max:= niz[1];
  for i:= 2 to brElem do
   if max < niz[i] then max:= niz[i];
 end;

Procedure NadjiMin(niz: tNiz; brElem: byte; var min: real);
 var
   i: integer;
 begin
  min:= niz[1];
  for i:= 2 to brElem do
   if min > niz[i] then min:= niz[i];
 end;

Procedure Zapisi(var dat: tDat; var dattxt: tDatTxt);
 var
  pomZapis: tZapis;
  min, max: real;
 begin
  assign(dat, 'datfile.dat');
  assign(dattxt, 'dattxt.txt');
  while not eof(dat) do
   begin
    read(dat, pomZapis);
    write(dattxt, pomZapis.i);
    nadjiMin(pomZapis.niz, pomZapis.i, min);
    write(dattxt, min);
    nadjiMax(pomZapis.niz, pomZapis.i, max);
    writeln(dattxt, max);
   end;
  close(dat);
  close(dattxt);
 end;