Maтрицы в делфи

[seyf]

подскажите как мне матрицу считанную из файла вывести в memo , у меня выводит как один столбец.
#13 почему то не катит((

[Hacker19_90]

Покажите код.

[seyf]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 type mass=array[1..3,1..3] of real;
var x:array[1..4] of real;
    A,C,B,D:mass;
    min,g:real;
    i,j,l,m,n:integer;
    f:text;
    st:string;
implementation
 function mas(y:mass;n,m:integer):real;
begin
for j:=1 to m do
begin
     min:=Y[1,1];
     for i:=1 to n do

     if min>Y[1,j] then
     min:=Y[1,j];
     mas:=min;

end;end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 assignfile(f,'ishod.pas');
 reset(f);
     x[1]:=mas(a,2,2);
     x[2]:=mas(b,2,2);
     x[3]:=mas(c,2,3);
     x[4]:=mas(d,2,3);

            for j:=1 to 3 do
for i:=1 to 4-j do
if x[i]<x[i+1] then
begin
g:=x[i];
x[i]:=x[i+1];
x[i+1]:=g;
for l:=1 to 4 do

memo6.Lines.Add(floattostr(x[l]));
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.Clear;
memo2.Clear;
memo3.Clear;
memo4.Clear;
memo5.Clear;
memo6.Clear;
 memo1.Lines.Add('Найти минимальное значение среди первых элементов столбцов каждой из матриц A, B , C, D и напечатать их в порядке убывания. Вычисление минимального элемента оформить в виде подпрограммы - функции');
     label1.Caption:='Матрица А:';
     label2.Caption:='Матрица B:';
     label3.Caption:='Матрица C:';
     label4.Caption:='Матрица D:';
   assignfile(f,'ishod.pas');
     reset(f);
     for i:=1 to 2 do begin
     for j:=1 to 2 do begin
     read(f,a[i,j]);
     memo2.Lines.Add(floattostr(a[i,j])+ #13);
     end;

     end;
     readln(f);
     for i:=1 to 2 do begin
     for j:=1 to 2 do begin
     read(f,b[i,j]);
     memo3.Lines.Add(floattostr(b[i,j])+ #13);
     end;

     end;
     readln(f);
     for i:=1 to 3 do begin
     for j:=1 to 3 do begin
     read(f,c[i,j]);
     memo4.Lines.Add(floattostr(c[i,j])+ #13);
     end;

     end;
     readln(f);
     for i:=1 to 3 do begin
     for j:=1 to 3 do begin
     read(f,d[i,j]);
     memo5.Lines.Add(floattostr(d[i,j])+ #13);
     end;

     end;
     closefile(f);

end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Hacker19_90]

а вы добавляете не правильно

memo2.Lines.Add(floattostr(a[i,j])+ #13);

[seyf]

а как нужно добавлять?:]

[Hacker19_90]

Ну попробуйте так

for i := 1 to n do
begin
    for j := 1 to m do
         memo1.text := memo1.text + IntToStr(massiv[i,j]) + ' ';
    memo1.text := memo1.text + #13;
end;