Немогу придумать алгоритм процедуры, которая должна читать из файла record записи, проверять на условие, прошедшие в условие сортировать в алфавитном и записывать в другой файл.
все переменные объявлены в главном варе, это процедура здесь только дополнительные
Код
procedure picture_perepis;
Var
a : integer;
f2 : string[40];
d2 : data2;
mas : array [1..3,1..3] of picture;
j : integer;
Begin
clrscr;
f1:='C:\shakhov\picture.dat';
f2:='c:\shakhov\picture2.dat';
assign(d1,f1);
assign(d2,f2);
reset(d1);
repeat
read(d1,pic);
with pic do
begin
for i := 1 to 3 do
begin;
mas[i,1]:=nazv;
mas[i,2]:=avt;
mas[i,3]:=god;
end;
end;
until EOF(d1);
for i := 1 to 3 do
begin
for j:= 1 to 3 do
write(' ',mas[i,j],' ');
writeln;
end;
writeln;
close(d1);
clrscr;
end;
Var
a : integer;
f2 : string[40];
d2 : data2;
mas : array [1..3,1..3] of picture;
j : integer;
Begin
clrscr;
f1:='C:\shakhov\picture.dat';
f2:='c:\shakhov\picture2.dat';
assign(d1,f1);
assign(d2,f2);
reset(d1);
repeat
read(d1,pic);
with pic do
begin
for i := 1 to 3 do
begin;
mas[i,1]:=nazv;
mas[i,2]:=avt;
mas[i,3]:=god;
end;
end;
until EOF(d1);
for i := 1 to 3 do
begin
for j:= 1 to 3 do
write(' ',mas[i,j],' ');
writeln;
end;
writeln;
close(d1);
clrscr;
end;