Программирование на 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.