составление программы на языке паскаль

For i :=1 to 10 do
For j :=(i+1) to 10 do
begin
if A[i]>A[j] then begin
k:=A[i];
A[i]:=A[j];
A[j]:=k;
end;
end;
For i :=10 to 20 do
For j :=(i+1) to 20 do
begin
if A[i]<A[j] then begin
k:=A[i];
A[i]:=A[j];
A[j]:=k;
end;
end;
For i :=1 to 20 do
Write(a[i],' ');
Writeln('');
For i :=1 to 20 do
if A[i]=x then Write(i,' ');
Writeln('');
ввод массива и контрольного числа сама....

var
i, j, k: integer;
mas: array[1..20] of integer;
s:string;
Begin
randomize;
for i := 1 to 20 do mas[i] := random(100);
writeln;
writeln('массив до сортировки');
for i := 1 to 20 do write(mas[ i], ' ');
for i := 1 to 9 do
for j := i + 1 to 10 do
if mas[i] > mas[j] then
begin
k := mas[i];
mas[i] := mas[j];
mas[j] := k;
end;
writeln;
for i := 10 to 19 do
for j := i + 1 to 20 do
if mas[i] < mas[j] then
begin
k := mas[i];
mas[i] := mas[j];
mas[j] := k;
end;
writeln('массив после сортировки');
for i := 1 to 20 do write(mas[ i], ' ');
write('K=');readln(k);
s:='Числа нет.';
for i:=1 to 20 do
if mas[i] = k then begin
s:='Число есть.';
break
end;
writeln(s);
writeln(k,' ',i)
End.

Имя массива mas поменяй везде на А, если это важно.