Algoritmizace #7

// EXE: http://machalda.cekuj.net/d.php?f=32

program transponace;
type typMatice = array[1..10,1..10] of integer;
var matrix:typMatice;
    indexR:integer;
    indexS:integer;
    rozmer:integer;
    volba:char;
    pom:integer;

procedure zadejHodnoty();
begin
     indexR := 0;
     indexS := 0;
     for indexR := 1 to rozmer do
         begin
              writeln('#     ',indexR,'. radek...');
              for indexS := 1 to rozmer do
              begin
                   writeln('#      Zadej ',indexS,'. cislo');
                   write('#->      cislo: ');
                   readln(matrix[indexR][indexS]);
                   writeln('#');
              end;
         end;
end;

procedure vypisHodnoty();
begin
      indexR := 0;
      indexS := 0;
      writeln('##########################');
      writeln();
      for indexR := 1 to rozmer do
         begin
              for indexS := 1 to rozmer do
              begin
                   write('   ',matrix[indexR][indexS],'   ');
              end;
              writeln();writeln();
         end;
       writeln('##########################');
       writeln('#');
end;

procedure transponuj();
begin
      indexR := 0;
      indexS := 0;
      writeln('##########################');
      writeln();
      for indexS := 1 to rozmer do
         begin
              for indexR := 1 to rozmer do
              begin
                   write('   ',matrix[indexR][indexS],'   ');
              end;
              writeln();writeln();
         end;
       writeln('##########################');
       writeln('#');
end;

begin

     writeln('###########################################################');
     writeln('#      Zadej rozmer matice');
     write('#->      rozmer: ');
     readln(rozmer);
     if (rozmer < 1) OR (rozmer > 10) then writeln('#      Spatne zadany rozmer')
     else
     begin
          writeln('#');
          writeln('#      Rozmery tve matice jsou: ',rozmer,' X ',rozmer);
          repeat
          writeln('#');
          writeln('#         |Z|adej      |V|ypis      ');
          writeln('#');
          writeln('#  |T|ransponuj               |K|onec      ');
          writeln('#');
          write('#->      volba: ');
          readln(volba);

          case volba of
          'Z':zadejHodnoty();
          'V':vypisHodnoty();
          'T':transponuj();
          else pom:=666;
          end;
          until pom = 666;
     end;
     writeln('######################## KONEC ###########################');
     readln;
end.