Вычисление длин высот треугольника по заданным длинам сторон

var a,b,c:integer;
    ha,hb,hc,p:real;
begin
read(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    p:=(a+b+c)/2;
    ha:=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c));
    hb:=(2/b)*sqrt(p*(p-a)*(p-b)*(p-c));
    hc:=(2/c)*sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('ha=',ha:5:3,' ','hb=',hb:5:3,' ','hc=',hc:5:3);
  end
else
  write('not triangle');
end.

const n=10;
type coord=array[1..n] of integer;
function dist(x1,y1,x2,y2:integer):real;  {функция находит расстояние между 2мя точками}
  begin
    dist:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
function perim(x,y:coord):real; {функция находит периметр многоугольника с n вершинами}
  var r,p:real;
      i:byte;
  begin
    perim:=0; p:=0;
    for i:=1 to n-1 do
      begin
        r:=dist(x[i],y[i],x[i+1],y[i+1]);
        p:=p+r;
      end;
    r:=dist(x[1],y[1],x[n],y[n]);
    p:=p+r;
    perim:=p;
  end;
var x,y:coord; {массивы с координатами}
    i:byte;
begin
randomize;
for i:=1 to n do
  begin
    x[i]:=random(32);
    y[i]:=random(32);
  end;
for i:=1 to n do
  writeln('(',x[i],',',y[i],')');
writeln('Perimeter=',perim(x,y):6:3);
end.

uses crt;
const a: array[1..5] of string=('Прт','Мин','Мид','Чва','Кри');
var ch: char; i,k: byte;
begin
clrscr;
write('введите букву: ');
readln(ch);
for i:=1 to 5 do
if a[i][1]=ch then
begin
writeln(a[i]);
inc(k);
end;
if k=0 then writeln('на заданную букву слов нет');
end.