Выдать информацию о товарах изготовленных в России и определить общую стоимость всех товаров

uses crt;
type tovar=record
name:string; {наименование товара}
izn:string; {единица измерения}
kol:integer; {количество}
date:string[8];{дата}
strana:string; 
cena:integer;{цена}
tov:record
end;end;
var st:array [1..3] of tovar;
ob_cena:integer;
 
begin
clrscr;
for i:=1 to 3 do begin
write ('Введите наименование товара');
readln (tov[i].name);
write ('Введите единицу измерения');
readln(tov[i].izm);
write('Введите количество');
readln(tov[i].kol);
write('Введите дату поставки');
readln(tov[i].date);
write('Введите страну');
readln(tov[i].strana);
write('Введите цену');
readln (tov[i].cena);
end;
For i:=1 to 3 do begin
with tov[i] do begin
 
write(name,' ',izm,' ',kol,' ',date,' ',strana,' ',cena);
 end;
 end;
 writeln;
 writeln;
 writeln ('Товары изготовленные в России');
    For i:=1 to 3 do
with tov[i] do
if strana='Россия' then begin
write(name,' ',izm,' ',kol,' ',date,' ',strana,' ',cena);
 end;
 ob_cena:=0;
  For i:=1 to 3 do 
with tov[i] do begin
ob_cena:=ob_cena+cena;
end;
writeln('Общая цена товара=',ob_cena);
 readln;
 end.