массив прямоугольников из едениц

[xDyPx]

Вот этот код выведет файл в стринггрид:

procedure TForm1.Button1Click(Sender: TObject);
var

i,j:integer;
f:Textfile;
s: char;

begin
Assignfile(f,'C:\\matr.txt');
{$I-}
reset(f);
{$I+}
j:=1;
while not EOF(f) do
begin
 i:=1;
 while not Eoln(f) do
  begin
   read(f,s);
   Stringgrid1.Cells[i-1,j-1]:=s;
   inc(i);
  end;
  readln(f,s);
  inc(j);
end;
closefile(f);
end;