как записать массив записей,если там запись в записе(2 раза)

[EvilArtorias]

program records;
const
N=2;
type
T2=record
Str:string[2];
Bool:boolean;
end;
T1=Record
Rea1:real;
Mas:array [1..2] of T2;
end;
T=record
zap:T1;
INT:integer;
end;


Mass=array[1..N] of T;


Procedure ReadRec(var R: Mass); //чтение записи с клавиатуры
var i,j:integer;
begin
for j:=1 to N do 
  with R[j] do
  begin
     writeln('введите целое число');
     readln(INT);
     write('введите вещественное число');
     readln(zap.rea1);
     writeln('введите строку,а затем логический символ');
     for i:=1 to 2 do
     readln(zap.mas.Str,zap.mas.bool);
     end;
end;


Procedure WriteRec(var R: Mass); // вывод записи на экран
var i,j:integer;
begin
for j:=1 to N do 
  with R[j] do
  begin
    writeln('целое число');
    writeln(INT);
    writeln('вещественное число');
    writeln(zap.rea1);
    writeln('массив из строки и логического символа');
    writeln(zap.mas.Str,zap.mas.bool);
   end;
end;

var MassOfRecs: Mass;
    
begin
ReadRec(MassOfRecs);
WriteRec(MassOfRecs);
end.

[Serge_Bliznykov]

если правильно понял вопрос.
тогда так:

вместо

Сообщение от EvilArtorias

for i:=1 to 2 do
     readln(zap.mas.Str,zap.mas.bool);

for i:=1 to 2 do
     readln(zap.mas[i].Str,zap.mas[i].bool);

вместо

Сообщение от EvilArtorias

writeln('массив из строки и логического символа');
    writeln(zap.mas.Str,zap.mas.bool);

   writeln('массив из строки и логического символа');
   for i:=1 to 2 do
     writeln(zap.mas[i].Str,zap.mas[i].bool);

p.s. не буду утверждать точно, но, имхо, не всякий паскаль позволит через Read/ReadLn прочитать значение в переменную типа boolean

[EvilArtorias]

(да,спасибо,работает,а насчет булеан,вы тоже были правы,не дает записать в него через readln),а стоп нет,это я дурак,все хорошо