DelphiПаскаль.обработка многомерных массивов.сложные циклы

[Hacker19_90]

Что не то??? (А чтоб не оффтопить, и чтоб меня не забанили пиши мне в асю)

[Hacker19_90]

сорри Kate я индексы перепутал!! Щас исправил посмотри ещё раз

[mifomen]

PHP код:

program matr;
uses crt;
const n=3;{dlina v down}
      m=4;{Dlina v right}
var a:array [1..n,1..m] of integer;
    b:array [1..m] of integer;
    i,j:integer;
begin
    clrscr; randomize;
    for i:=1 to n do begin
     for j:=1 to m do begin
      a[i,j]:=random(5)-2; write(a[i,j]:4); end; writeln; end;

      for i:=1 to n do begin b[i]:=1;
       for j:=1 to m do begin
        if a[i,j]=0 then b[i]:=0; end; end;

        write('Polushilos '); textcolor(Yellow);writeln;
       for i:=1 to n do
        write(b[i]:3);
readkey
end. 


[kate-27]

clrscr?readkey?
для чего это вообще и почему на них ошибка?

[Филантроп]

и почему на них ошибка?

потому что

clrscr?readkey?

это для паскаля
для delphi
clrscr -сотрите
readkey-замените на

readln;

[kate-27]

я так и делала)
но все равно что-то не то
может есть еще какие-нить варианты?