matriste alan hesabı (pascal)

PROGRAM alan;

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

VAR m:kat;
Xler : array [1..30] of REAL;
Yler : array [1..30] of REAL;

i,j,ls,js,k,s,p :INTEGER;
t,top,t1,t2,t3,t4,t5,t6 : REAL;

girdi,alanlar : text;

BEGIN

ASSIGN(girdi, 'C:/girdi.txt');
RESET(girdi);

ASSIGN(alanlar, 'C:/alanlar.txt');
REWRITE(alanlar);

READ (girdi,ls,js);

WRITELN(alanlar,'sonuclar' );
WRITELN(alanlar,'matris says:' , 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;





FOR s:= 1 TO ls DO
BEGIN
READ(girdi , Xler[s]);
END;

READLN(girdi);

FOR k:=1 TO js DO
BEGIN
READ(girdi, Yler[k]);
END;

t1:= 0;
t2:= 0;
t3:= 0;
t4:= 0;
t5:= 0;
t6:= 0;

FOR s:= 1 TO ls DO
BEGIN
FOR i:=1 TO js DO
BEGIN
case m[i, s] of
1: t1 := t1 + Xler[i]*Yler[s];
2: t2 := t2 + Xler[i]*Yler[s];
3: t3 := t3 + Xler[i]*Yler[s];
4: t4 := t4 + Xler[i]*Yler[s];
5: t5 := t5 + Xler[i]*Yler[s];
6: t6 := t6 + Xler[i]*Yler[s];
{WRITELN(alanlar ,(Xler[i] * Yler[s]) : 4:2);}
end;

END;
END;

WRITELN(alanlar, 'Duvar alani=', t1:8:2);
WRITELN(alanlar, '2nolu mekan alani=', t2:8:2);
WRITELN(alanlar, '3nolu mekan alani=', t3:8:2);
WRITELN(alanlar, '4nolu mekan alani=', t4:8:2);
WRITELN(alanlar, '5nolu mekan alani=', t5:8:2);
WRITELN(alanlar, '6nolu mekan alani=', t6:8:2);

WRITELN(alanlar, 'Toplam alan=', (t1+t2+t3+t4+t5+t6):8:2);



CLOSE (alanlar);
READLN;
END.