Тема: Таблиці - відфільтрувати записи з данними про холодильники
доброго дня! З наступаючим Різдвом вас! Будь ласка допоможіть мені знайти помилку в коді! Треба вивести в табличку ті холодильники, які є 1993 року випуску. Коли я ввів дані, в мене виводить всі холодильники, а треба лише 1993 року
const
n=5;
type
xolod = record
virobn:string[50];
nazvanie:string[45];
kamera:real;
rik:integer;
misce:string[45];
cina:real;
kilkist:real;
end;
var
i:integer;
tabl:array[1..n] of xolod;
procedure lin(m:integer);
var
i:integer;
begin
for i:=1 to m do
write('-');
writeln;
end;
begin
Writeln('Vvedi danni');
For i:=1 to n do
begin
Write('virobn:'); readln(tabl[i].virobn);
Write('nazvanie:'); readln(tabl[i].nazvanie);
Write('kamera:'); readln(tabl[i].kamera);
Write('rik:'); readln(tabl[i].rik);
Write('misce:'); readln(tabl[i].misce);
Write('cina:'); readln(tabl[i].cina);
Write('kilkist:'); readln(tabl[i].kilkist);
end;
Lin(69);
writeln(' | Виробництво | Назва | Обэм Камери | Рік | Місце | Ціна | Кількість|');
Lin(69);
For i:=1 to n do
begin
write(' |', tabl[i].virobn:10,'|');
write(tabl[i].nazvanie:10,'|',tabl[i].kamera:13,'|', tabl[i].rik:4,'|', tabl[i].misce:9,'|' , tabl[i].cina:9,'|' , tabl[i].kilkist:9,'|');
writeln;
Lin(69);
end;
writeln;
writeln('vidsortovano');
Lin(69);
For i:=1 to n do
begin
If (tabl[i].rik >= 1993) then
write(' |', tabl[i].virobn:10,'|');
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,'|');
writeln;
Lin(69);
end;
End.