Pascal программа отказывается работать

[vOvA vO]

Исправте пож. ошибку допущенную в программе, при запуске данные вводятся а ответ не выдает , помогите пожалуйста.
(попробуйте на запуск только)

Вот само задание: Составить алгоритм и программу: в двух массивах А и В. Не создавая нового массива, сортировать А по убыванию, В по возрастанию.


Program var_12_1;
Const n=10;
Var a:array [1..n] of integer;
b:array [1..n] of integer;
k,c,i,j,m,f:integer;
Begin
Writeln ('Vvedite chislo strok');
Read(f);
Writeln ('Vvedite chislo stolbchov');
Read(m);
Read (A[i],B[j]);
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then Begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;

for i:=1 to n do
for j:=i to n do
if b[i]<b[j] then Begin
c:=b[i];
b[i]:=b[j];
b[j]:=c;
end;
end.

[eiolve]

Program var_12_1;
Uses WinCRT;
Const n=10;
Var
a:array [1..n] of integer;
b:array [1..n] of integer;
c,i,j:integer;


Begin

{------генерируем массивы------}
for i:=1 to n do {Цикл задает случайные значения в оба массива}
begin
a[i]:= 10+random(20);
b[i]:= 10+random(20);
end;

{---------Печать массивов----------}
writeln('массивы до сортировки');
writeln(' A B ');
for i:=1 to n do
begin
write(' ',a[i],' ');
write(b[i]);
writeln;
end;

{-----Сортировка------}
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then
Begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;

for i:=1 to n do
for j:=i to n do
if b[i]<b[j] then
Begin
c:=b[i];
b[i]:=b[j];
b[j]:=c;
end;
{----Очистка экрана----}
writeln ('Press any key');
readln;
ClrScr;

{-------Печать массивов--------}
writeln('массивы после сортировки');
writeln(' A B ');
for i:=1 to n do
begin
write(' ',a[i],' ');
write(b[i]);
writeln;
end;
end.


Надеюсь помог

[eiolve]

Кстати спасибо. Мне как раз такой метод сортировки нужен был)))

[vOvA vO]

а почему там не совсем А убывает, а В возрастает

[eiolve]

Я с твоего кода делал. Просто в сортировке смени
{-----Сортировка------}
for i:=1 to n do
for j:=i to n do
if a[i]>b[j] then
Begin
c:=b[i];
b[i]:=b[j];
b[j]:=c;
end;

for i:=1 to n do
for j:=i to n do
if b[i]<b[j] then
Begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;