Pascal задача с матрицами.

[Impario]

Доброго вам время суток!!!
Срочно кто может посмотрите че нетак. Показывает ошибку хотя странно.
условие ао вложениях плиз кто может посмотрите исправте.

program pr367;
 uses crt;
  var a:array[1..10] of integer;
      b:array[1..20] of integer;
      c:array[1..10,1..20] of integer;
      i,j:integer;
      begin
        clrscr;
          for i:=1 to 20 do
 begin
            b[i]:=random(10)-3;
  end;
            writeln;
           for j:=1 to 10 do
begin
a[j]:=random(10)-3;
end;
              for i:=1 to 20 do
                 for j:=1 to 10 do
                  begin
                   c[i,j]:=a[j]/(1+b[i]);
                   end;
              writeln('poluchilos');
               write(c[i,j]:6);
                readln;
        end.

[Тупой]

исправьте строчку

      i,j,n:integer;

на

      i,j:integer;

, и сл строки:

          for i:=1 to n do
           for j:=1 to n do

на

          for i:=1 to 10 do
           for j:=1 to 20 do

[Impario]

Щас проверю

[Impario]

Извиняюсь ввел поправку там именно в примере неправильно

[Тупой]

А запятые мы по политическим причинам не ставим?
Где, что, в каком примере, что неправильно?
Так и не понял, заработало или нет?
ну и ещё, исправьте

                for i:=1 to 20 do
                 for j:=1 to 10 do

на

                for i:=1 to 10 do
                 for j:=1 to 20 do

[Impario]

в условии i=1 to 20
j=1 to 10
а в самом действии ошибку видит вот в чем дело

[Тупой]

тогда надо заменить

  c:array[1..10,1..20] of integer;

на

  c:array[1..20,1..10] of double;

да, и не интежер это никакой, а double (ну или как он в паскале называется), например