Создание таблицы в .txt

[avic]

Требуется написать на языке Паскаль программу, которая бы предлагала заполнить таблицу. Для начала она должна предложить кол-во строк и столбцов, а потом уже ее заполнение. Заранее спасибо

[avic]

var f,g:text;
i,j,n,m:integer;
A: array [1..50,1..50] of string[8];
begin
readln(n);
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
writeln('Vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
assign(g,'c://kurs3.txt');
rewrite(g);
for i:=1 to n do begin
for j:=1 to m do begin
write(g,a[i,j]);
end;
writeln(g);
end;
close(g);
end.
Есть вот такой код, но он заполняет таблицу по элементно, хотелось бы чтобы программа выводило окно где я бы там с форматированием ее бы заполнил..Или чтобы заполняло по элементно но с пробелами.