Имеется список пассажиров. Вывести данные в табличной форме - Pascal ABC

Формулировка задачи:

8.Имеется список авиапассажиров, в котором записаны: фамилия пассажира, количество вещей багажа, общий вес багажа, номер рейса. Вывести данные в табличной форме.

Решение задачи: «Имеется список пассажиров. Вывести данные в табличной форме»

Листинг программы

uses crt;
type
passagir=record
fam:string;
kolv:integer;
ov:real;
nr:integer;
end;
var
i,n,k:integer;
spisok: array [1..100] of passagir;
begin
writeln('Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЇГ*Г±Г*Г¦ГЁГ°Г®Гў:');
readln(n);
for i:=1 to n do
begin
writeln('Г‚ГўГҐГ¤ГЁГІГҐ ГЁГ*ГґГ® Г® ГЇГ*Г±Г±Г*Г¦ГЁГ°ГҐ В№',i,':');
write(' - ГґГ*Г¬ГЁГ«ГЁГї: ');
readln(spisok[i].fam);
write(' - ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГўГҐГ·ГҐГ© ГЎГ*ГЈГ*Г¦Г*: ');
readln(spisok[i].kolv);
write(' - Г®ГЎГ№ГЁГ© ГўГҐГ± ГЎГ*ГЈГ*Г¦Г*: ');
readln(spisok[i].ov);
write(' - Г*Г®Г¬ГҐГ° Г°ГҐГ©Г±Г*: ');
readln(spisok[i].nr);
end;
clrscr;
writeln('Г‘ГЇГЁГ±Г®ГЄ ГЇГ*Г±Г±Г*Г¦ГЁГ°Г®Гў');
writeln('------------------------------------------------------');
writeln('Г”Г*Г¬ГЁГ«ГЁГї':15, ' | ', 'ГЉГ®Г«-ГўГ® ГўГҐГ№ГҐГ©':13, ' | ', 'ГЋГЎГ№ГЁГ© ГўГҐГ±':10, ' | ', 'ГђГҐГ©Г±':5, ' | ');
writeln('------------------------------------------------------');
for i:=1 to n do
writeln(spisok[i].fam:15, ' | ',spisok[i].kolv:13, ' | ',spisok[i].ov:10:2, ' | ',spisok[i].nr:5, ' | ');
writeln('------------------------------------------------------');
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующую задачу: выводит данные из списка пассажиров в табличной форме. В начале кода используется функция readln() для чтения числа пассажиров n из стандартного ввода. Затем цикл for проходит от 1 до n и для каждого пассажира выполняется следующий код:

Выводится заголовок строки таблицы с помощью функции writeln().
Выводится фамилия пассажира с помощью функции write().
Выводится номер рейса с помощью функции readln().
Выводится имя авиакомпании с помощью функции write().
Выводится номер места с помощью функции readln().
Выводится код бронирования с помощью функции write(). После завершения цикла, выводится последний заголовок строки таблицы с помощью функции writeln(). Код также содержит функцию clrscr(), которая очищает экран перед выводом таблицы. Наконец, выводится последняя строка с номером пассажира и его данными. Примечание: в данном коде используется массив spisok для хранения данных о пассажирах. Каждый элемент массива представляет собой запись пассажира и содержит поля для фамилии, номера рейса, имени авиакомпании, номера места и кода бронирования.