Seřažení řádků matice od nejmenšího podle první hodnoty

program NEW;

var
a:array[1..10, 1..10] of integer;
b:array[1..10, 1..2] of integer;
c:array[1..10, 1..10] of integer;

i,j,q,o,f:integer;
p:boolean;
cookies:string;

begin
repeat
randomize;

for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(100)+1; end; end;
for i:=1 to 10 do begin b[i,2]:=i; end;


for i:=1 to 10 do b[i,1]:=a[i,1];

repeat
p:=false;
for i:=1 to 9 do

    if (b[i,1]>b[i+1,1]) then
         begin
         p:=true;
         q:=b[i,1]; b[i,1]:=b[i+1,1]; b[i+1,1]:=q;
         o:=b[i,2]; b[i,2]:=b[i+1,2]; b[i+1,2]:=o;
         end;


until p=false;


writeln;


 i:=1;
repeat

f:=b[i,2];

for j:=1 to 10 do begin c[i,j]:=a[f,j]; end;

i:=i+1;
until i=11;


for i:=1 to 10 do  begin writeln(); for j:=1 to 10 do begin write(a[i,j]:4,' '); end; end;
writeln;

for i:=1 to 10 do begin writeln(); for j:=1 to 2 do begin write(b[i,j]:3); end; end;

writeln();


for i:=1 to 10 do begin writeln(); for j:=1 to 10 do begin write(c[i,j]:4); end;  end;


writeln();
writeln;
writeln('Gimme cookies!!!');
readln(cookies);
until cookies='we have no cookies';
end.