VELMI SURNE - program v pascale

uses crt;
const m=3;n=2;
var a:array[1..m,1..n]of integer;
     min:array[1..2]of byte;
     b,c:byte;
     d:integer;
begin
for b:=1 to m do
for c:=1 to n do begin
write(b,'.riadok ',c,'.stlpec: ');readln(a[b,c]);
                      end;

min[1]:=1;
min[2]:=1;
for b:=1 to m do
for c:=1 to n do
if(a[b,c]<a[min[1],min[2]])then begin min[1]:=b;min[2]:=c; end;

clrscr;

for b:=1 to m do begin
for c:=1 to n do write(a[b,c]:5);
writeln;              end;

writeln;
writeln('minimum ',min[1],'.riadok ',min[2],'.stlpec: ',a[min[1],min[2]]);

{riadky}
if(min[1]>1)then for b:=1 to n do
begin
d:=a[1,b];
a[1,b]:=a[min[1],b];
a[min[1],b]:=d;
end;

{stlpce}
if(min[2]>1)then for b:=1 to m do
begin
d:=a[b,1];
a[b,1]:=a[b,min[2]];
a[b,min[2]]:=d;
end;

for b:=1 to m do begin
for c:=1 to n do write(a[b,c]:5);
writeln;              end;

readkey;end.