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

Не запускается

Потому что у меня бегин и переменная слиплись, вот так строчка должна выглядеть: beginc:=sqrt(sqr(A[i])+sqr(B[i]));

10.program Ok;constn=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;beginfor i:=1 to n doRead(A[i]);for i:=1 to n doRead(B[i]);for i:=1 to n dobeginc:=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 dobeginif(S[i]>S[i+1]) thenk:=i;end;writeln('Номер ',k, ' Катеты = ', A[k],' ', B[k],' Площадь = ',S[k]);for i:=1 to n dobeginif(S[k]=S[i]) thenwriteln('Номер ',i,' Катеты = ', A[i],' ', B[i],' Площадь = ',S[i]);end;end.