Массивы величин типа “запись”.

[Кристина Н]

Массивы величин типа “запись”.
Фамилии и имена 25 учеников класса записаны в двух различных таблицах. Напечатать фамилию и имя каждого ученика на отдельной строке.
Решите пожалуйста буду очень благодарна!

[hiho]

Что означает "записаны в двух различных таблицах"? Имена отдельно, фамилии отдельно, или просто часть списка в одной таблице, часть в другой?

[Кристина Н]

да да... фамилии и имена отдельна

[hiho]

for i := 1 to 25 do writeln(Name[i],' ',SurName[i])

Так?

[unbanned]

эмм... возможно так?

type
  Student = record
    Name: string;
    SurName: string;
  end;

const
  N = 25;

var
  Data: array [1..N] of Student;
  i: integer; 
  N: integer;
  InName: text;
  InSurName: text;

begin
  assign(InName, 'C:\InName.txt');
  assign(InSurName, 'C:\InSurName.txt');
  reset(InName);
  reset(InSurName);
  for i := 1 to N do
    with Data[i] do 
    begin
      readln(InName, Name);
      readln(InSurName, SurName); 
    end;
  close(InName);
  close(InSurName);
  
  for i := 1 to N do
    with Data[i] do
      writeln(Name, ' ', SurName);
end.