Zle 2D matrice u Pascalu, napadaju sirote brucose! Is there a hero!?

Code:
program matrice;
uses crt;
type matrica=array [1..100 , 1..100] of real;
var
dimx,dimy,i,j:integer;
a:matrica;
b:boolean;
label 1;

procedure ucitaj;
begin
 write('dimenzija x=');readln(dimx);
 write('dimenzija y=');readln(dimy);
 if (dimx<0) or (dimy<0) then
 begin
  b:=true;
  exit;
 end;
 for i:=1 to dimx do
  for j:=1 to dimy do
  begin
   write('Clan ',i,',',j,'=');
   readln(a[i,j]);
  end;
end;

procedure izmjeni;
var z:real;
dimyy:integer;
begin
 dimyy:=dimy div 2;
 for i:=1 to dimx do
  for j:=1 to dimyy do
  begin
   z:=a[i,j];
   a[i,j]:=a[i,dimy+1-j];
   a[i,dimy+1-j]:=z;
  end;
end;

procedure ispisi;
begin
 for i:=1 to dimx do
  for j:=1 to dimy do
   if j=dimy then
    writeln(a[i,j]:3:2,'  ')
   else
    write(a[i,j]:3:2,'  ');
end;

begin
b:=false;
while not b do
begin
 clrscr;
 ucitaj;
 if b then goto 1;
 izmjeni;
 ispisi;
1: readln
end;
end.

Code:


program matrice;
uses crt;
type matrica=array [1..10, 1..10] of integer;
var dimx,dimy,i,j:integer;
    a,pomniz:matrica;
    unosok:boolean;
    pitanje:char;

{**********************************************************************
Funkcija meni sluzi za izbor akcije koju nas program izvodi
***********************************************************************}

function Meni:char;
var akcija:char;
begin
  clrscr;

  {ove brljotine u meniju nize ce se u Pascalu prikazivati kao tabela}

  writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»':61);
  writeln('ş         PROGRAM ZA RAD SA MATRICAMA           ş':61);
  writeln('ĚÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍą':61);
  writeln('ş  1) Ucitavanje matrice                        ş':61);
  writeln('ş  2) Obrada matrice                            ş':61);
  writeln('ş  3) Transponovanje matrice                    ş':61);
  writeln('ĚÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍą':61);
  writeln('ş  4) Kraj                                      ş':61);
  writeln('ş                                               ş':61);
  writeln('ČÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍĽ':61);
  writeln;
  write('Unesite vas izbor: ':31);
  repeat
    akcija:= readkey;
    if (akcija<'1') or (akcija>'4') then writeln('GRESKA! Unesite operaciju od 1 do 4: ');
  until (akcija>='1') and (akcija<='4');
  writeln;
  Meni:=akcija;
end;

{**********************************************************************
Procedura ucitaj ucitava dimenziju i clanove matrice
***********************************************************************}

procedure ucitaj;
begin
  clrscr;
  write('dimenzija x=');
  readln(dimx);
  write('dimenzija y=');
  readln(dimy);
  while(dimx<=1) or (dimy<=1) do
  {ovja uslov mora biti zadovoljen da bi uopste matrica bila matrica}
  {jer je matrica dimenzija npr. 1x2 u stvari niz sa 2 clana}
  begin
    writeln;
    writeln('GRESKA! Broj vrsta i kolona mora biti 2 ili vise!');
    writeln('Ponovite unos:');
    writeln;
    writeln;
    write('dimenzija x=');
    readln(dimx);
    write('dimenzija y=');
    readln(dimy);
  end;
  for i:=1 to dimx do
    for j:=1 to dimy do
    begin
      write('Clan [',i,',',j,']: ');

      {============================================}
      {provera da li je unet ceo broj}
      {$I-}
      readln(a[i,j]);
      {$I+}
      while ioresult<>0 do
      begin
        writeln('GRESKA! Morate uneti ceo broj!');
        write('Ponovite unos clana [',i,',',j,']: ');
        {$I-}
        readln(a[i,j]);
        {$I+}
      end;
      {kraj provere}
      {============================================}

    end;
end;

{**********************************************************************
Procedura izmeni izvrsava zamenu redosledaelemenata svake vrste matrice
***********************************************************************}

procedure izmeni;
var z, dimyy:integer;
begin
  clrscr;
  dimyy:=dimy div 2;
  for i:=1 to dimx do
    for j:=1 to dimyy do
    begin
      z:=a[i,j];
      a[i,j]:=a[i,dimy+1-j];
      a[i,dimy+1-j]:=z;
    end;
end;

{**********************************************************************
Procedura ispisi ispisuje matricu
***********************************************************************}

procedure ispisi(var a:matrica);
begin
  clrscr;
  for i:=1 to dimx do
    for j:=1 to dimy do
      if j=dimy then
      writeln(a[i,j]:5)
    else
    write(a[i,j]:5);
    writeln;
    textcolor(135);
    writeln('Za nastavak pritisnite ''Enter''');
    textcolor(7);
    readln;
end;

{**********************************************************************
Procedura ispisitransp ispisuje transponovanu matricu
***********************************************************************}

procedure ispisitransp(var a:matrica);
begin
  clrscr;
  for i:=1 to dimy do
    for j:=1 to dimx do
      if j=dimx then
      writeln(a[i,j]:5)
    else
    write(a[i,j]:5);
    writeln;
    textcolor(135);
    writeln('Za nastavak pritisnite ''Enter''');
    textcolor(7);
    readln;
end;

{**********************************************************************
Procedura transponovanje izvrsava transponovanje ulazne matrice
***********************************************************************}

procedure transponovanje;
var pom:integer;
begin
  for i:=1 to dimx do
    for j:= 1 to dimy do
    begin
      pomniz[j,i]:=a[i,j];
    end;
end;

{**********************************************************************
Procedura unesipodatke proverava da li su uneti svi potrebni podaci za
trazene operacije nad matricom
***********************************************************************}

procedure unesipodatke;
begin
  clrscr;
  writeln('Morate prvo uneti sve potrebne podatke (Opcija 1)!');
  writeln;
  textcolor(135);
  writeln('Za nastavak pritisnite ''Enter''');
  textcolor(7);
  readln;
end;

begin
 { window(1,1,80,25);
  textbackground(red);}
  {ovo ti je ako zelis da imas crvenu radnu povrsinu}
  {mozes staviti i neku drugu boju, samu u TEXTBACKGROUND stavi neki broj do 15}
  unosok:=false;
  clrscr;
  window(5,5,75,20);
  repeat
    pitanje:=Meni;
    case pitanje of
      '1': begin
             ucitaj;
             unosok:=true
           end;
      '2': if unosok then begin
                            izmeni;
                            ispisi(a);
                          end
                     else unesipodatke;
      '3': if unosok then begin
                            transponovanje;
                            ispisitransp(pomniz);
                          end
                     else unesipodatke;
    end;
  until pitanje='4';
end.