Подскажите пожалуйста с Паскалем!! Номер 10, 11 Очень надо! Пж не берите у других!!!!!

10.
program Ok;
const
n=10;
var A:array[1..n] of integer;
B:array[1..n] of integer;
S:array[1..n] of real;
i,k:integer;
c,p:real;
begin
for i:=1 to n do
Read(A[i]);
for i:=1 to n do
Read(B[i]);
for i:=1 to n do
beginc:=sqrt(sqr(A[i])+sqr(B[i]));
p:=(A[i]+B[i]+c)/2;
S[i]:=sqrt(p*(p-A[i])*(p-B[i])*(p-c));
end;
for i:=1 to n-1 do
begin
if(S[i]gt;S[i+1]) then
k:=i;
end;
writeln(Номер ,k, Катеты = , A[k], , B[k], Площадь = ,S[k]);
for i:=1 to n do
begin
if(S[k]=S[i]) then
writeln(Номер ,i, Катеты = , A[i], , B[i], Площадь = ,S[i]);
end;
end.