Переписать из типизированного файла в текстовый все данные.

[menlo]

Люди помогите кто может,мне тут в инсте задали 5 задач,4 я сделал ,а вот с 5 проблемы ((,хотя задача вроде простая
Имеется типизированный файл,включающий записи следующей структуры:
string[11],array[1..3,2..3] of byte. Создать новый текстовый файл и переписать в него все данные типизированного файла

[vitalik007]

создавай запись с таким форматом!
потом f:file of имя записи
считывай а потом записывай

[AlDelta]

menlo, в чем собственно проблема? Или решил чужими руками...

vitalik007

...Создать новый текстовый файл и переписать в него все данные...

[Serge_Bliznykov]

Виталий правильно ответил!
типа так:

type MyRec=record
               str1:string[11];
               array1:array[1..3,2..3] of byte;
end;

var
   F: file of MyRec;
   rec: MyRec;
   FOut : Text;
   i,j : integer;
begin
  Assign(F,'Test1.dat');
  Reset(F);
  Assign(FOut,'MyRecOut.txt');
  Rewrite(FOut);
  while Not eof(F) do begin
    Read(F,MyRec);
    Write(FOut,MyRec.Str1);
    for i:=1 to 3 do 
     for j:=2 to 3 do
       Write(FOut,MyRec.Array1[i,j],' ');
    WriteLn(FOut);
  end;
  Close(F);
  Close(FOut);
end.

писал прямо в броузере, так что за АшиПки просьба не пинать!