Сохранение двумерного массива в файл

[AngelOfDeath]

Подскажите пожалуйста
Как записать двумерный массив в файл
Пробовал вот так:

procedure TForm1.Button2Click(Sender: TObject);
var
x,y:Integer;
t:TextFile;
begin
       FileCreate('1.txt');

for x := 0 to 10 do
  for y := 0 to 10 do
    begin
      Write(t,mapXY[x,y]);

    end;
end;

И так

procedure TForm1.Button2Click(Sender: TObject);
var
x,y:Integer;
t:TextFile;
begin
       FileCreate('1.txt');

for x := 0 to 10 do
  for y := 0 to 10 do
    begin
      Writeln(t,mapXY[x,y]);

    end;
end;

Вылетала ошибка I/O Error 103
MapXY это :

 mapXY: array [0..10, 0..10] of Byte;

[alexBlack]

А где же Assign ?

begin
   //FileCreate('1.txt');
   AssignFile(t, '1.txt'); rewrite(t);

   for x := 0 to 10 do
      for y := 0 to 10 do begin
         Writeln(t,mapXY[x,y]);
      end;

   closefile(t);

[AngelOfDeath]

Спасибо за ответ
Но вот ещё вопрос
Это сохраняет так:

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
////////////////////
0
0
0
0
0
0
0
0
0
0
0
0
0

А мне нужно чтоб оно записывалось в виде таблицы:
00000000
00010000
00210000
И т.д.

[AlDelta]

Выводи в файл перевод строки только тогда, когда завершилась строка массива, а не после каждого элемента.

http://www.programmersclub.ru/ в разделе Книги скачай себе хоть одну книжку и прочитай её.

[Rik]

var
SL: TSTringList;
S: string;
begin
SL := TSTringList.Create;
try
for x := 0 to 10 do
begin
S := '';
for y := 0 to 10 do
begin
S := S + IntToStr(mapXY[x,y]);
end;
SL.Append(S);
end;
SL.SaveToFile('MyFile.txt');
finally
SL.Free;
end;
end;

[AngelOfDeath]

Сообщение от AlDelta

Выводи в файл перевод строки только тогда, когда завершилась строка массива, а не после каждого элемента.

Спасибо помогли
Просто в книге по которой я обучался не было написано про Write, WriteLn абсолютно ничего
Ну хоть сейчас заполнил этот пробел в знаниях
Всё таки получилось сделать такую конструкцию:

00000000000
00000000000
00002010000
00000000000
00000000000
00000000000
01000000000
00001000010
00000000000
00000000000
00000000000

Этим кодом:

procedure TForm1.Button2Click(Sender: TObject);
var
x,y:Integer;
t:TextFile;
begin
       AssignFile(t,'1.txt');
       Rewrite(t);
for x := 0 to 10 do
begin
  for y := 0 to 10 do
    begin
      Write(t,mapXY[y,x]);
    end;
Writeln(t);
end;
    CloseFile(t);
end;

Тему можно закрывать, так как вопрос решён