@space marine

uses crt;
type
tovar=record
naim:integer;{Наименование товара}
izm:string [20];{Единица измерения}
cena:integer;{Цена}
Kolichestvo:integer;{Количество}
end;
var
Perech:array [1...10] of tovar;
i,n:integer;
begin
write ('введите перечень всех товаров:');read(n);
for i:=1 to n do
begin
write ('Наименование товара ');read(perech[i].naim);
write ('Единица измерения ');read(perech[i].izm);
write ('Цена ');read(perech[i].cena);
write ('Количество ');read(perech[i].kolichestvo);
end;
clrscr;
writeln('Перечень товаров имеющихся в продаже в магазине Океан');
writeln ('_____________________________________________________');
writeln ('Наименование товара, Единица измерения, Цена, Количество');
for i:=1 to n do
begin
gotoxy (1,i+3);write(rasp [i].naim);
gotoxy (14,i+3);wrie(rasp [i].izm);
gotoxy (22,i+3);write(rasp [i].cena);
gotoxy (28,i+3);write(rasp [i].kolichestvo);
end;
writeln;
write('-------------------------------------------------------');
end.
в строке задания массива пишет что он не верен если кто знает помогите

0