Пример использования записей в Паскале

Задача. Ввести список характеристик N стран мира, содержащий информацию вида (N<=40): Название, площадь.
Решение.

Program Lends;
Const
Nmax=40; { Max количество стран в списке }
Dl=15; { длина названия }
Type
Country = Record
Name : String [15];
Square : Integer;
End;
Var
Count : Array [1..Nmax] Of Country;
Count1: Country;
n, i, k : Integer;

Begin
Writeln(’Введите количество стран’);
Readln(n);
Writeln(’Вводите информацию о каждой стране’);
For i:=1 to n Do
 With Count[i] do
 Begin
 Write(’Название: ’);
 ReadLn(Name);
 Write(’Площадь: ’);
 ReadLn(Square);
 End;

Writeln('Характеристики стран');
For i:=1 to n Do
 With Count[i] do
 Writeln(Count[i].Name:20, Count[i].Square:8);

Writeln('Работа окончена, нажмите Enter');
Readln;
End.