Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_10

program lab_10;
uses crt;
type
   zap=record
   p1,p2,p3:integer;
end;
var
   buf,min,max,zapom:zap;
   f,g:file of zap;
   i,j,n,k,l,d:integer;
   A:array[1..20] of integer;
begin
randomize;
clrscr;
assign(f,'c:\f.txt');
assign(g,'c:\g.txt');
writeln('‡ Ї®«­Ґ­ЁҐв д ©«  н«Ґ¬Ґ­в ¬Ё вЁЇ  record');
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® § ЇЁбҐ©- ');
readln(n);
reset(f);
reset(g);
for i:=1 to n do
   begin
      buf.p1:=random(20);
      buf.p2:=random(20);
      buf.p3:=random(20);
      if i=1 then
         begin
            max:=buf;
            min:=buf;
         end;
      write(f,buf);
      write(buf.p1:3);
   end;
writeln;
close(f);
             {***********‘®авЁа®ўЄ   н«Ґ¬Ґ­в®ў д ©« *********}
reset(f);
for i:=1 to n do
   begin
      while not eof(f) do
         begin
            read(f,buf);
            if buf.p1<min.p1 then
               begin
                  k:=filepos(f);
                  for j:=1 to l do
                     if k=A[j] then d:=1;
                  if d<>1 then min:=buf;
               end;
         end;
      write(g,min);
      l:=l+1;
      A[l]:=k;
      d:=0;
      min.p1:=20;
      seek(f,1);
   end;
close(f);
reset(g);
while not eof(g) do
   begin
      read(g,buf);
      write(buf.p1:3);
   end;
   for i:=1 to l do write(A[i]:3);
readkey;
end.