вывод двумерный массив по правилам...(delphi)

[KnightLOU]

Доброго времени суток = )
Затрудняюсь в решении одной задачки, на паре вроде что-то сделал но конечного результата не получил.
Условие:
Заполнить двумерный массив из файла. Процедуру решения поместить в модуль. Вывести массив по примеру приведенному на рисунке:

[Mad_Cat]

наисложнейшая задача)

for i:=1 to n do
for j:=1 to n do
if (i=j) or (j=n-i+1) then a[i,j]:=1
else a[i,j]:=0;

[KnightLOU]

Конечно дельный кусок кода, не спорю, но это не поможет решить мне мою проблему.
Вот немного недоработаная "программа" которую написал только что, возможно вы увидите что мне может помочь.
Пока без модуля.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const maxN=8; MaxM=8;
type TMyarray=Array [1..maxN,1..Maxm] of Integer;
var A:TMyarray;
N,M:Integer;
procedure Tinit(v,w,k,l:Integer; var x:TMyarray);
var i,j:Integer;
begin
  Assign(Input,'input.txt');
   Reset(Input);
  for i:=1 to v do
  for j:=1 to v do
  if(i=k) or (j=l) or (i+j=k+l) or (i-j=k-l) then x[k,l]:=2;
 Close(Input);
end;
procedure Tprint(v,w:Integer; X:TMyarray);
var i,j:integer;
begin
   Assign(Output,'output.txt');
    Rewrite(Output);

  for i:=1 to v do
  begin
   for j:=1 to w do write (X[i,j],' ');
  Writeln;
  end;
Close(Output);
end;
procedure solve;
 var a:TMyarray;
 c,ch:Char; str,stl:Integer;
begin
   Assign(Input,'input.txt'); Reset(Input);
  Assign(Output,'output.txt'); Rewrite(Output);
  Readln(c, stl);
  if (c<'a') or (c>'h') or (stl<1) or (stl>MaxN) then Writeln ('íåêîððåêòíûé ââîä') else
  begin
    str:= ord(Ch) - ord('a') +1;
    Tinit(maxN,str,stl,a);
    Tprint(maxN,MaxM,a);
  end;
 Close(Input);
Close(Output);
end;

begin

solve

end.

мм видимо толковой помощи никто дать не может

[Stilet]

видимо толковой помощи никто дать не может

Еще бы... Какая же помошь когда автор, неуважая форумчан, не пояснил что ему нужно читать именно из вордовского файла и не оформил как полагается код.