Мне нужно: В файле типа RECORD хранится информация о поступивших в ремонт бытовых приборах: ФИО клиента, тип бытового прибора, год выпуска, страховая стоимость прибора, наименование дефекта, дата приемки в ремонт. Составить программу для получения:
• Сведений о приборах, год выпуска которых меньше заданного;
• Информации о количестве приборов одного типа.
Начало сделал, вроде верно, а теперь нужно вот написать процедуру для получения Сведений о приборах, год выпуска которых меньше заданного и Информации о количестве приборов одного типа. Помогите с чем сможете Заранее большое спасибо П.с. там меню ещё должно быть, но это не важно, мне самое главное создать эти процедуры...меню уж написать смогу))
-----------------------------
PROGRAM MENU;
USES CRT;
CONST
M:ARRAY[1..3] OF STRING=('ПУНКТ1','ПУНКТ2','ПУНКТ3');
ad:string='my.dat';
k=3;
type zap= record
fio:string[45];
tippribora:string;
godvupyska:string;
straxovayastoimoist:integer;
deffect:string;
datapriema:real;
end;
spis=array[1..k] of zap;
VAR
st:spis;
fil:file of zap;
b:byte;
I,A,n:INTEGER;
Procedure za(var st:spis);
VAR
i: byte;
BEGIN
CLRScr;
assign(fil,ad);
rewrite(fil);
for i:=1 to k do
begin
with st[i] do
begin
writeln('Vvedite FIO: ');
Readln(fio);
Write('tip pribora: ');
readln(tippribora);
Write('Vvedite god vupiska ');
readln(godvupyska);
Write('Straxovayz stoimost pribora: ');
readln(straxovayastoimoist);
writeln('Vvedite deffect');
readln(deffect);
writeln('Data priema:');
readln(datapriema)
end;
write(fil,st[i]);
close(fil);
Reset(fil);
readln;
end;
END;
................