PROGRAM alan;

Type kat=array[1..30,1..30] of INTEGER;

dizi=array[1..30] of REAL;

VAR m : kat;

VAR x,y : dizi;

i,j,ls,js:INTEGER;

t,top,t1,t2,t3,t4,t5,t6 :REAL;

girdi,alanlar :text;

BEGIN

ASSIGN (girdi, 'C:\girdiler.txt');

RESET(girdi);

ASSIGN (alanlar, 'C:\alanlar.txt');

REWRITE(alanlar);

READ (girdi, ls, js);

WRITELN(alanlar, 'sonuclar');

WRITELN (alanlar, 'matris sayisi: ',ls,',',js);

FOR i:=1 to ls DO

BEGIN

FOR j:=1 to js DO

BEGIN

READ (girdi,m[i,j]);

WRITE (alanlar, m[i, j]);

END;

WRITELN (alanlar);

END;

CLOSE (alanlar);

READLN;

END.