lign="justify">
begin clrscr;
for i: = l to n do
with al [i] do
begin
writeln ('Введіть марку машини:'); readln (marka);
writeln ('ее рік випуску:'); readln (year);
writeln ('Ta Ціну:'); readln (price);
end;
writeln;
writeln ('Фірма предлагает Такі машини:');
for i: = l to n do
with al [i] do writeln (marka: 15, year: 10, '$', price);
writeln;
write ('Poздрукуємо інформацію про машину,');
writeln ('цінa якіх Менш, чем $ 3000:');
for i: = l to n do
with al [i] do
if price <3000 then writeln (marka: 15, year: 10);
readln
end.
2.2 Файли
Опіс тіпів та оголошення тіпованіх файлів. Часто вінікає потреба опрацьовуваті інформацію, розташовану на зовнішніх носіях (на дисках). Прикладами таких даніх є інформація про успішність студентов, Расписание транспорту, наявність товарів у магазинах, адресні книжки.
Файл - це сукупність даніх, Які розташовані на зовнішньому носії. Дані у файлі назіваються елементами. Кількість даніх, на відміну від масиву, во время описування файлу не Зазначаються. Елемент файлу не має індекса. Тип ЕЛЕМЕНТІВ может буті як пробачимо, так и Складення, альо НЕ может буті файлом.
Файловий тип даніх опісують у розділі опісів тіпів так:
type <имя типом> = file of <базовий тип>;
або безпосередно у розділі оголошення змінніх
var <список змінніх>: file of <базовий тип>;
