Проблема

[Shift_sk]

туплю пожест...немогу с файла норм прочиать...

var a:array[1..250,1..250] of string[1];
n,m,s,i,j:integer; k:string[1];
    f,f2:text;
begin

assign(f,'input.txt');
assign(f2,'output.txt');
reset(f);
rewrite(f2);
readln(f,n,m,s);
for i:=1 to n do
for j:=1 to m do
readln(f,a[i,j]);
close(f);
close(f2);

end.

вот что в файле

3 3 2
# . #
. . .
# . #

[Mad_Cat]

string[1];

O_O а про char вы не слышали?

read(f,a[i,j]);

[Serge_Bliznykov]

посмотрите пример.
ReadMap.rar (3.8 Кб)

будут вопросы - милости прошу!


p.s. к словам Mad_Cat добавлю, что судя по Вашей цитате в исходном файле имеются и пробелы между символами.
Так вот, нужно или убрать их (как я это сделал) или изменить код чтения, чтобы он пропускал эти пробелы.

[Shift_sk]

спасиб всем...