Задачки на сортировку

uses crt;
var
  n,s,sk,h: Integer;
begin
  h:=1;
  sk:=100;
  n:=0;
  s:=0;
  while s<100 do
  begin
    Inc(n);
    s:=s+n*h;
  end;
  Writeln('Уровень воды повыситься через ', n, ' дней');
  Readkey;
end.

const 
  n=10;
type
  Tarr=array[1..n] of integer;
var
  a:Tarr;
  i,j,k,buf:integer;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-10+random(31);
      write(a[i]:4);
    end;
  writeln;
  write('K=');
  readln(k);
  for i:=1 to n-1 do
    if a[i] mod k=0 then
      for j:=i+1 to n do
        if a[j] mod k=0 then
          if a[i]>a[j] then
            begin
              buf:=a[i];
              a[i]:=a[j];
              a[j]:=buf;
            end;
  writeln('Otsortirovali:');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end.

var A:array[1..50,1..50] of integer;
    n,i,j,t,k:integer;
begin
write('Ðàçìåðíîñòü ìàññèâà = ');
readln(n);
 
writeln('Ââåäèòå ìàòðèöó À:');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
 
writeln('Ìàòðèöà À:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
 
    for j:=1 to n do
      for k:=1 to j do
        if a[2,j]>a[2,k] then
          begin
            t:=a[2,j];
            a[2,j]:=a[2,k];
            a[2,k]:=t;
          end;
 
writeln('Ïîëó÷åííàÿ ìàòðèöà À:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
 
end.