обработка нетипизированного файла Опции

[inviceble]

Здраствуйте.

Немогу придумать алгоритм процедуры, которая должна читать из файла 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;

Сообщение отредактировано: inviceble - 8.01.2008 23:58

[Ozzя]

Тогда сделай так:
У тебя picture, picture2 - совершенно одинаковые по структуре.
Сделай тип picture и одномерный массив типа picture
Mas_picture : array [1..n] of picture;

Сообщение отредактировано: Ozzя - 9.01.2008 15:44