program Project1;

{$mode objfpc}{$H+}

uses CRT;

var
  n,m,i,j, suma: integer;
  c: char;
  m1 : Array[1..10, 1..10] of Integer;
  m2 : Array[1..10, 1..10] of Integer;
procedure wypisz;
            begin
            for i:= 1 to m do
                begin
                for j:= 1 to n do
                    begin
                    Write(m1[i][j], ' | ');
                    end;
                Writeln();
                end;
        end;
  procedure wygeneruj;
              begin
                    for i:= 1 to m do
                begin
                for j:= 1 to n do
                    begin
                      m1[i][j]:=random(100)-50;
                    end;
                end;
  end;
begin
  randomize;
  repeat
  Writeln ('Program macierzowy');
  Writeln ('Autor: Tomasz Habko');
  Writeln ('1. Okresl rozmiar macierzy');
  Writeln ('2. Wygeneruj  macierz');
  Writeln ('3. Wyswietl  macierz');
  Writeln ('4. Oblicz sume elementów');
  Writeln ('5. Wyznacz kwadrat macierzy');
  Writeln ('e. Exit');
  Writeln('Wybierz opcje');

  Read (c);
  case (c) of
       '1':   begin
       Write('Wprowadz rozmiar m macierzy: ');
       Readln (m);
       while ((m<1) or (m>10)) do
             begin
                     Writeln('Liczba wierszy ma byc z przedzialu od 1 do 10');
                     Write('Wprowadz rozmiar m macierzy: ');
                     Readln (m);
             end;
       Write('Wprowadz rozmiar n macierzy: ');
       Readln(n);
              while ((n<1) or (n>10)) do
             begin
                     Writeln('Liczba kolumn ma byc z przedzialu od 1 do 10');
                     Write('Wprowadz rozmiar m macierzy: ');
                     Readln (n);
             end;
       end;
        '2': begin
             wygeneruj();
             Writeln('Macierz wygenerowana')
                         Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
            ReadKey();
             end;
        '3': begin
             wypisz();
             Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
            ReadKey();
        end;
          '4': begin
        suma:=0;
            for i:= 1 to m do
                begin
                for j:= 1 to n do
                    begin
                      suma:=suma+m1[i][j];
                    end;
                Writeln();
                end;
                           Writeln('Suma Elementow Macierzy wynosi: ',suma);
                Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
            ReadKey();
          end;
            '5': begin
            for i:= 1 to m do
                begin
            for j:= 1 to n do
                begin
                  m1[i][j]:=m1[i][j]*m1[i][j];
                end;
            Writeln();
            end;
            Writeln('Kwadrat Macierzy');
                wypisz;
            Writeln('Wcisnij dowolny klawisz aby przejsc dalej')
            ReadKey();
        end;

  end;
clrscr;
until (c='e');
end.