Одномерные ассивы: что нетак ?

program zad;
uses Crt;
var i : integer;
     Sp[1..5]:array of string;[
     Vid[1..5]:array of string;
     Cen[1..5]:array of integer;
     Kol[1..5]:array of integer;
Begin
 Clrscr;
 writeln('Название ','цена 1 единицы','кол-во единиц ','вид единиц измерения ');
   for i:=1 to 5 do
      begin
         readln ({?}Sp[i],{?}Cen[i],Kol[i],Vid[i]);
         writeln ('--------|-----------|-----------|---------|');
          writeln (Sp[i]:14,Cen[i]:14,Kol[i]:14,Vid[i]:14);
      end;
End.

program zad;
uses Crt;
var i : integer;
     Sp: array [1..5] of string;
     Cen: array [1..5] of integer;
     Kol: array [1..5] of integer;
     Vid: array [1..5] of string;
Begin
 Clrscr;
 writeln('Название ','цена 1 единицы','кол-во единиц ','вид единиц измерения ');
   for i:=1 to 5 do
      begin
         readln(Sp[i]);
         readln(Cen[i],Kol[i]);
         readln(Vid[i]);
         writeln ('--------|-----------|-----------|---------|');
          writeln (Sp[i]:14,Cen[i]:14,Kol[i]:14,Vid[i]:14);
      end;
End.

Program   zadan_4;
uses Crt;
const
 C = 4;
 D = 12;
Var
Tab: array[1..C,1..D] of real;
Sp: array [1..C] of string[10];
Rez: array[1..C,1..D] of real;
i,t,s,j : integer;
z , zz : string;
Procedure Tablica;
begin                                  {описание процедуры}
writeln (z);
{заголовок таблицы}
write('|');
gotoXY(2,whereY);
write ('Продукт');
gotoXY(14,whereY);
write('|');
gotoXY(36,whereY);
write ('Стоимость по месяцам');
gotoXY(77,whereY);
writeln ('|');
{/ заголовок таблицы }
writeln (z);    {горизонтальная черта}
{строка с номерами месяцев}
write('|');
gotoXY(14,whereY);
write('|');
s := 1;
repeat
gotoXY(whereX+2,whereY);
write (s);
gotoXY(whereX+1,whereY);
write ('|');
s:=s+1
untils > 12;
gotoXY(77,whereY);
writeln ('|');
{/ строка с номерами месяцев }
writeln (zz);
for t:= 1 to C do        {цикл вывода пустых строк  }
begin                          {          под ввод данных          }
write ('|');
gotoXY(14,whereY);
write ('|');
s := 1 ;
repeat
if s < 10 then
begin
gotoXY(whereX+4,whereY);
write ('|');
s := s +1;
end;
if s > = 10   then
begin
gotoXY(whereX+5,whereY);
write ('|');
s:=s+1;
end;
until s > 12 ;
gotoXY(whereX-1,whereY) ;
writeln ('|');
writeln (zz);
end;
{/цикл вывода пустых строк таблицы}
end; {конец описание процедуры}
 
Begin            {тело программы}
Clrscr
writeln (' Введите наименования товаров');
for t:=1 to C  do
begin
write (t,'  ');
readln (Sp[t]);
end;
zz := ('|------------|----|----|----|----|----|----|----|----|----|-----|-----|-----|');
z := ('|------------|-----------------------------------------------------------|');
Tablica;     {процедура построения таблицы}
gotoXY(3,whereY-(C*2)); {перевод курсора}
for t : = 1 to C do    {цикл вывода названия товаров в первом столбце}
begin
write (Sp[t]);          
gotoXY(15,whereY-(C*2));    {перевод курсора}
end;                     
{заполняем таблицу и вводим значения элементов массива }
for i:= 1 to C  do
begin
read (Tab[i,1]);
gotoXY(20,whereY-1);
read (Tab[i,2]);
gotoXY(25,whereY-1);
read (Tab[i,3]);
gotoXY(30,whereY-1);
read (Tab[i,4]);
gotoXY(35,whereY-1);
read (Tab[i,5]);
gotoXY(40,whereY-1);
read (Tab[i,6]);
gotoXY(45,whereY-1);
read (Tab[i,7]);
gotoXY(50,whereY-1);
read (Tab[i,8]);
gotoXY(55,whereY-1);
read (Tab[i,9]);
gotoXY(61,whereY-1);
read (Tab[i,10]);
gotoXY(67,whereY-1);
read (Tab[i,11]);
gotoXY(72,whereY-1);
read (Tab[i,12]);
gotoXY(15,whereY+1);
end;
gotoXY(1,whereY);
writeln;
{вычисляем проценты }
for i:=1 to C do
Begin
Rez[i,1]:= ((Tab[i,12]-Tab[i,1])/Tab[i,1]*100); {январь / декабрь}
Rez[i,2]:= ((Tab[i,2]-Tab[i,1])/Tab[i,1]*100); {февраль}
Rez[i,3]:= ((Tab[i,3]-Tab[i,2])/Tab[i,2]*100);
Rez[i,4]:= ((Tab[i,4]-Tab[i,3])/Tab[i,3]*100);
Rez[i,5]:= ((Tab[i,5]-Tab[i,4])/Tab[i,4]*100);
Rez[i,6]:= ((Tab[i,6]-Tab[i,5])/Tab[i,5]*100);
Rez[i,7]:= ((Tab[i,7]-Tab[i,6])/Tab[i,6]*100);
Rez[i,8]:= ((Tab[i,8]-Tab[i,7])/Tab[i,7]*100);
Rez[i,9]:= ((Tab[i,9]-Tab[i,8])/Tab[i,8]*100);
Rez[i,10]:= ((Tab[i,10]-Tab[i,9])/Tab[i,9]*100);
Rez[i,11]:= ((Tab[i,11]-Tab[i,10])/Tab[i,10]*100);
Rez[i,12]:= ((Tab[i,12]-Tab[i,11])/Tab[i,11]*100); {декабрь}
end;
Tablica;      {процедура построения таблицы}
gotoXY(3,whereY-(C*2));  {перевод курсора}
for t : = 1 to C do  {цикл вывода названий продуктов в первом столбце}
begin
write (Sp[t]);
gotoXY(3,whereY+2);
end;
gotoXY(15,whereY-(C*2)); {перевод курсора}
{ вывод результатов в таблицу}
for i:= 1 to C  do
begin
write (Rez[i,1]:4:1);
gotoXY(20,whereY);
write (Rez[i,2]:4:1);
gotoXY(25,whereY);
write (Rez[i,3]:4:1);
gotoXY(30,whereY);
write(Rez[i,4]:4:1);
gotoXY(35,whereY);
write (Rez[i,5]:4:1);
gotoXY(40,whereY);
write (Rez[i,6]:4:1);
gotoXY(45,whereY);
write (Rez[i,7]:4:1);
gotoXY(50,whereY);
write (Rez[i,8]:4:1);
gotoXY(55,whereY);
write (Rez[i,9]:4:1);
gotoXY(61,whereY);
write (Rez[i,10]:4:1);
gotoXY(67,whereY);
write (Rez[i,11]:4:1);
gotoXY(72,whereY);
write (Rez[i,12]:4:1);
gotoXY(15,whereY+2);
end;
{/ выводим результаты в таблицу }
writeln;
readln;
readln;
End.