Вот что я делаю:
var N,M,i,j,k:longint;
a:array [1..101,1..101] of char;
begin
Readln (N,M);
For i:=1 to N do
For j:=1 to M do
Read (a[i,j]);
...
end.
В чём здесь ошибка?
var N,M,i,j,k:longint;
a:array [1..101,1..101] of char;
begin
Readln (N,M);
For i:=1 to N do
For j:=1 to M do
Read (a[i,j]);
...
end.
a:array [1..10,1..10] of char;
For i:=1 to N do begin
For j:=1 to M do
Read (a[i,j]);
ReadLn
end;