Записи. Тексты программ

Ввод и вывод данных о персонах

type
  Person = record
    name: string;
    age: integer;
  end;

var p1,p2: Person;

begin
  readln(p1.name,p1.age);
  writeln(p1.name,' ',p1.age);
  p2.name := 'Иванов';
  p2.age := 20;
  p1 := p2;
  writeln(p1.name,' ',p1.age);
end.

Ссылки

Алгоритмы для начинающих