ідеї закінчились
const
n=4;
type
xolod = record
virobn:string[50];
nazvanie:string[45];
kamera:real;
rik:integer;
misce:string[45];
cina:real;
kilkist:real;
end;
var
f:text;
i:integer;
procedure vvod;
var
i:integer;
tabl:xolod;
begin
Assign(f,'d:\xolod.txt');
rewrite(F);
for i:=1 to n do begin
Write('virobn:');
Write('nazvanie:');
Write('kamera:');
Write('rik:');
Write('misce:');
Write('cina:');
Write('kilkist:');
writeln(f,tabl.virobn);
writeln(f,tabl.nazvanie);
writeln(f,tabl.kamera);
writeln(tabl.rik);
writeln(tabl.misce);
writeln(tabl.cina);
writeln(tabl.kilkist);
end;
Close(f);
End;
Procedure vivod;
var
s:string;
begin
writeln('-----------------------------------------------------------------------');
writeln(' | Виробництво | Назва | Обэм Камери | Рік | Місце | Ціна | Кількість|');
writeln('-----------------------------------------------------------------------');
assign(f,'d:\xolod.txt');
Reset(f);
while not eof(f) do
begin
readln(f,tabl[i].virobn , tabl[i].nazvanie , tabl[i].kamera , tabl[i].rik , tabl[i].misce , tabl[i].cina , tabl[i].kilkist );
writeln(tabl.virobn:10,'|' ,tabl.nazvanie:15,'|',tabl.kamera:16,'|', tabl.rik:4,'|', tabl.misce:9,'|' , tabl.cina:9,'|' , tabl.kilkist:9,'|');
end;
Close(f);
End;
Procedure obrobka;
begin
assign(f, 'd:\xolod.txt');
Reset(f);
while not eof(f) do begin
readln(f,tabl[i].virobn , tabl[i].nazvanie , tabl[i].kamera , tabl[i].rik , tabl[i].misce , tabl[i].cina , tabl[i].kilkist );
If (tabl[i].rik = 1993) then
write(tabl[i].nazvanie:15,'|',tabl[i].kamera:16,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
end;
Close(f);
End;
BEGIN
vvod;
vivod;
obrobka;
End.
що ж робити воно ругається не існує tabl на строке
вообще не знаю чи правильно переробив код .гляніть пліз
скажыть яку процедуру мені треба дописати, судячи з того шо в мене є 