Чтение массивов из файла и их нестандартный вывод

[ivannes]

Господа форумчане! Помгите с насущной проблемой: решили вместе с другом текстовую игру написать, для развлечения) и тут стал вопрос ребром - как прочитать массив из файла(эт я знаю) и вывести это так
где 0 там # а где 1 там ' '. Помогите А?

[GetMax]

вывести это так
где 0 там # а где 1 там ' '.

Все просто. Описываете массив символов. Например двухмерный

  Matr2:array[1..5,1..5] of Char;

И записываете в него то, что нужно

 For i:=1 to 5 do
  Begin
    For j:=1 to 5 do
    Begin
      If Matr1[i,j] = 0 then Matr2[i,j]:=#35
                        else Matr2[i,j]:=#32;
      Write(Matr2[i,j]:3)
    End;
    Writeln
  End;

[ivannes]

он выводит "несовпадение типов", может в коде ошибка? вот код

program game;
uses
    crt;
var
   key: char;
   x,y,w,i,j:integer;
   map:array[1..5, 1..5] of char;
   tile:array[0..1] of integer;
   t:text;
   str:string;
procedure LoadMap; {процедура открывающая карту}
begin
assign(t,'map.txt');
reset(t);
while not Eof(t) do
begin
readln(t,str);
end;
end;
begin
loadmap;
for j:=1 to 5 do
    begin
         if map[i,j] = 0 then map[i,j]:=#35
                       else map[i,j]:=#32;
         write(map[i,j]:3)
         end;
    writeln
end;
x:=20;
y:=20;
repeat
gotoXY(x,y); {алгоритм движения нолика}
textcolor(white);
write('O');
key:=readkey;
gotoxy(x,y);
textcolor(black);
write('O');

if key='w' then begin {прописываем клавиши}
y:=y-1;
end;
if key='a' then begin
x:=x-1;
end;
if key='s' then begin
y:=y+1;
end;
if key='d' then begin
x:=x+1;
end;
until key='r';
end.

[Stilet]

выводит "несовпадение типов"

На какой строке?
И еще: Я так и не понял где в коде заполнение массива идет...

if map[i,j] = 0 then map[i,j]:=#35

У тебя массив символьный а ты его с нулем (это число) сравниваешь.
Пиши уж так:

if map[i,j] = #0 then map[i,j]:=#35

[puporev]

var
 //  key: char;
 // x,y,w,i,j:integer;
   map:array[1..5, 1..5] of char;
 //  tile:array[0..1] of integer;
   t:text;
  // str:string;
  i,j,a:byte;
procedure LoadMap; {процедура открывающая карту}
begin
assign(t,'map.txt');
reset(t);
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    read(t,a);
    if a = 0 then map[i,j]:=#35
    else map[i,j]:=#32;
    write(map[i,j]:3)
   end;
  writeln
 end;
end;

[ivannes]

спасибо, но отображение не коректое(

[puporev]

Поправь вывод чтобы не было лишних пробелов.

write(map[i,j])

А так все выводит как ты и написал.

[ivannes]

вот теперь хорошо) но в документе
11111
10001
10001
10001
11111
а он выводит спплошными #, т.е. как будто в документе одни еденицы. В чем проблема?

[puporev]

Цифры в файле нужно писать через пробел

1 1 1 1 1
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
1 1 1 1 1

[ivannes]

не помогает(