for i:=1 to n do
begin
for j:=1 to m do read(s[i,j]);
readln;
end;
for i:=1 to n do
begin
for j:=1 to m do write(s[i,j]);
writeln;
end;
n和m是赋了值的，S是字符型数组
结果如下：

第一行的二三列总是没有

不可能吧
你一定是搞错了
我的可以

var
n,m,i,j:longint;
s:array[1..10000]of string;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do read(s[i,j]);
readln;
end;
for i:=1 to n do
begin
for j:=1 to m do write(s[i,j]);
writeln;
end;
readln;
end.

外循环每一环加readln；

跟扫雷游戏差不多