Акуся

program prim11;
const n=5;
type export=record
strana:string;
tovar shtuk:array[1..3] of string;
end;
var a:array[1..n] of export;
i,j:integer;
begin
writeln('vvod nazv 5 stran');
for i:=1 to n do
with a[i] do
begin
readln(strana);
for j:=1 to 5 do begin
readln(tovar[j]);
readln(shtuk[j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to 5 do
if a[i].strana='Kanada, Italia, USA, Germany, France'
then writeln('tovar= ',a[i].tovar[j]);
writeln('shtuk= ',a[i].shtuk[j]);
end;
end.