MARIO - MATRIS OLUŞTURMA

PROGRAM MARIOVERI;
VAR i,j,k,t : INTEGER;
mario : ARRAY [0..19,0..19] OF INTEGER;
marioson,veri:TEXT;

BEGIN


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

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

FOR k:=0 TO 19 DO
FOR t :=0 TO 19 DO
BEGIN

mario[k][t] :=0;

END;


FOR k:=0 TO 19 DO
BEGIN
FOR t :=0 TO 19 DO
BEGIN

WRITE( marioson,mario[k][t], ' ');

END;

WRITELN(marioson);
END;


READ(veri,i,j);

WRITELN(i);
WRITELN(j);


CLOSE(marioson);
READLN;
END.