PROGRAM macierz;
USES crt;
CONST
X=5;
Y=2;
VAR
t: ARRAY[1..X,1..Y] OF Integer;
ix, iy, id,iu,sd, su, sz :integer;
pass : string;
k :char;
BEGIN
 
CLRSCR;
 REPEAT
  WRITELN('Podaj haslo:');
  READLN(pass);
 UNTIL pass = 'lol';
 
REPEAT 
 RANDOMIZE;
 FOR iy:=1 TO Y DO
  FOR ix:=1 TO X DO
  	t[ix,iy]:=RANDOM(9)-RANDOM(4);
	iu:=0;
	id:=0;
	sz:=0;
	su:=0;
	sd:=0;	
FOR iy:=1 TO Y DO
  FOR ix:=1 TO X DO
  BEGIN
  IF t[ix,iy] >= 0 THEN
   BEGIN
    IF t[ix,iy] > 0 THEN
     	BEGIN
    	sd:=sd+1;
	id:=id+t[ix,iy];
	END
    ELSE
     sz:=sz+1;
   END
   ELSE
   BEGIN
    su:=su+1;
    iu:=iu+t[ix,iy];
    END;
  WRITE(t[ix,iy],', ');
  END;
  WRITELN;
  WRITELN('Ilosc dodatnich: ',sd,'. Ich suma: ',id);
  WRITELN('Ilosc zer: ',sz);
  WRITELN('Ilosc ujemnych: ', su,'. Ich suma: ',iu);
 WRITELN;
 REPEAT
  WRITELN('Kontynuowac T/N? ');
  k:=UPCASE(READKEY());
   IF (k <> 'N') AND (k <> 'T') THEN
    WRITELN('Zly klawisz!');
   UNTIL (k='N') OR (k='T');
  UNTIL (k='N') ;
   END.