Ребята срочно нужно решить задания на Паскале

uses crt;
type T=1..1000;{создаем тип натуральных чисел без ноля}
var n,i,j,x,k:T;
a:array[1..50]of T;
function Prost(x:T):boolean;
var i:T;
begin
for i:=2 to (x div 2) do
if x mod i=0 then {если есть делители, то число не простое}
     begin
        Prost:=false;
     end;
end;
begin
clrscr;
write('Razmernost massiva n=');readln(n);
randomize;
writeln('Massiv:');
for i:=1 to n do
      begin
        a[i]:=random(20)+1;
        write(a[i],' ');
      end;
writeln;
for i:=1 to n-1 do {сортируем массив по возрастанию}
for j:=1 to n-1 do
if a[j]>a[j+1] then
      begin
         x:=a[j];
         a[j]:=a[j+1];
         a[j+1]:=x;
      end;
k:=0;
for i:=2 to n do
if Prost(i)and Prost(a[i-1])and(a[i]-a[i-1]=2)then
{если соседние числа простые и отличаются на 2}
      begin
         k:=k+1;{считаем эти пары}
         writeln('Takie chisla est! ',a[i-1],'-',a[i]);
         break; {если находим, выходим из цикла}
      end;
if k=0 then writeln('Takih chisel net!');{если нет таких, сообщаем}
readln
end.

program pr1;
var a,b,c,s:real;
begin
 writeln('Vvedite znacheniya katetov');
 write('a=');
 readln(a);
 write('b=');
 readln(b);
  c:=sqrt(sqr(a)+sqr(b));
  s:=(a*b)/2;
 writeln('Dlinna gipotenuzi = ',c);
 write('Ploshad treugolnika = ',s);
 readln
end.