Как их считать? пробую
for i:=1 to n do begin
for i:=1 to о do
read(a[i,j]);
readln;
end; - зацикливается, пробую:
for i:=1 to n do begin
for i:=1 to о do
read(a[i,j]);
writeln;
end; - не проходит 1 тест (из-за лишних переводов строки в исходных данных) =((

for i:=1 to n do
  for j:=1 to n do
    read(a[i,j]);
двумерным массивом считываешь

for i:=1 to n do begin
for i:=1 to о do
read(a[i,j]);
writeln;
2 раза счётчик i используешь во вложенном цикле
for i:=1 to n do begin
for J:=1 to о do
read(a[i,j]);
writeln;