паскаль :Помогите дописать код(если нужно исправить), задание:"добавить в программу возможность сохранения массива данных в файле и чтения из файла, - вопрос №3975854

объединения двух файлов, возможность копирования существующего файла." program pr1;

const n=5;

type

avto=record

marka:string;

god:integer;

stoim:integer;

end;

var mas:array [1..n] of avto;

k:integer;

a:byte;

p:string;

begin

repeat

writeln ('1. Ввести информацию об авто');

writeln ('2. Просмотр информации обо всех авто');

writeln ('3. Поиск авто по модели');

writeln ('4. Вывод списка авто, чья сумма которых превышает 1000000 рублей');

writeln ('5. Exit');

readln(k);

case k of

1: for a:=1 to 5 do

with mas[a]do begin writeln ('Введите название авто:');

readln(marka);

writeln('Введите год авто:');

readln(god);

writeln ('Введите стоимость авто:');

readln(stoim); end; 2: for a:=1 to 5 do with mas[a] do

begin

writeln ('Название авто: ', marka);

writeln ('Год авто: ', god);

writeln ('Стоимость: ', stoim);

end; 3:

begin

writeln ('Введите название авто');

readln(p);

for a:=1 to 5 do if mas[a].marka=p then

begin

with mas[a] do begin

writeln ('Название авто ', marka);

writeln ('Год авто ', god);

writeln ('Стоимость ', stoim);

end;

end;

end;

4: begin for a:=1 to 5 do begin if mas[a].stoim>1000000 then

writeln ('Название авто ', mas[a].marka);

end;

end;

until k=5;

end;