Нужно перевести 5 зaдaч с C++ на Паскаль

program progr;
 
var
  x,y,z,d,g:real;
begin
Writeln('Enter x');
readln(x);
Writeln('Enter Y');
readln(y);
z:=1.5;
d:=(exp(abs(x-y))*sin(z)/cos(z))/(arctan(y)+sqrt(x))+ln(x);
writeln('D= ',d:4:2);
g:=0;
 if(y>2) and (y<12) then
  g:=arctan(x+abs(y));
 if(y<=2) then
   g:=arctan(abs(x)+y);
 if(y>=12) then
    g:=sqr(x+y);
writeln('g= ',g:4:2);
readln;
end.

program Proj;
var
  x,y:real;
  isminus:boolean;
begin
    y:=0.8;
    x:=0.1;
    isminus:=true;
    while(x<=0.26) do
        if (isminus) then
          begin
            y:=y-x;
            x:=x+0.02;
            isminus:= false;
          end
        else
          Begin
            y:=y+x;
            x:=x+0.02;
            isminus:= true;
          end;
  writeln('Y= ',y:4:2);
 readln;
end.

Uses
 CRT;
Const
a:array[1..7] of integer=(5,-8,4,8,12,-4,0);
Var
i:integer;
b:array[1..7] of integer;
begin
ClrScr;
writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to 7 do
begin
write(a[i]:3);
b[i]:=a[i]+(-12);
end;
writeln;
 writeln('Ïðåîáðàçîâàííûé ìàññèâ: ');
for i:=1 to 7 do
begin
write(b[i]:4);
end;
readkey
end.

Uses
 CRT;
Const
n=63;
Type
matr=array[1..n] of integer;
Var
i:integer;
sum:real;
a:matr;
 
procedure preobr(Var c:matr;k:integer);
begin
writeln;
writeln('Ïðåîáðàçîâàííûé ìàññèâ: ');
for i:=1 to k do
begin
c[i]:=c[i]+(-12);
write(c[i]:4);
end;
end;
 
function summa(Var c:matr;k:integer):real;
begin
sum:=0;
for i:=1 to k do
if (c[i]>=-2) and (c[i]<=21) then
begin
sum:=sum+c[i];
end;
summa:=sum;
end;
 
begin
ClrScr;
writeln('Èñõîäíûé ìàññèâ: ');
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
end;
writeln;
preobr(a,n);
writeln;
writeln('SUM:=',summa(a,n):3:0);
readkey
end.

uses graph;
var xc,yc,d:integer;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
d:=30;
setbkcolor(15);
setcolor(8);
line(xc-5*d,yc-3*d,xc-4*d,yc-d);
line(xc-5*d,yc-3*d,xc-d,yc-d);
line(xc-5*d,yc+3*d,xc-4*d,yc+d);
line(xc-5*d,yc+3*d,xc-d,yc+d);
line(xc-4*d,yc-d,xc+4*d,yc-d);
line(xc-4*d,yc+d,xc+4*d,yc+d);
line(xc-4*d,yc-d,xc-4*d,yc+d);
setcolor(12);
line(xc+4*d,yc-d,xc+6*d,yc);
line(xc+4*d,yc+d,xc+6*d,yc);
setcolor(9);
circle(xc+2*d,yc,d div 2);
setfillstyle(1,9);
floodfill(xc+2*d,yc,9);
readln
end.

uses crt;
type zap=record
         stroka:string;
         dlina:byte;
         end;
var c:char;
    s:string;
    z:zap;
    p:byte;
begin
clrscr;
writeln('Введите текст латинскими символами, окончание Enter:');
readln(s);
while pos('ab',s)>0 do
 begin
  p:=pos('ab',s);
  delete(s,p,2);
  insert('12',s,p);
 end;
z.stroka:=s;
z.dlina:=length(s);
writeln('Строка= ',z.stroka);
write('длина=',z.dlina);
readln
end.