Существование и площадь треугольника

uses crt;
type mas=array[1..100] of real;
procedure Vvod(var ms:mas;n:byte);{создание и ввод массива}
var i:byte;
begin
writeln('Массив из ',n,' элементов:');
for i:=1 to n do
 begin
  ms[i]:=random+1;{берем числа от 1 до 2, иначе призведение 100 элементов это вообще маразм}
  write(ms[i]:5:2);
 end;
writeln;
end;
function Proiz(ms:mas;n:byte):real;{считаем произведение массива заданной из программы длины}
var i:byte;
    p:real;
begin
p:=1;
for i:=1 to n do
p:=p*ms[i];
Proiz:=p;
end;
var a:mas;
    n,i:byte;
begin
clrscr;
randomize;
Vvod(a,30);
writeln('Произведение=',Proiz(a,30):0:4);
writeln;
readln;
Vvod(a,50);
writeln('Произведение=',Proiz(a,50):0:4);
writeln;
readln;
Vvod(a,100);
writeln('Произведение=',Proiz(a,100):0:4);
readln
end.

uses crt;
const n=4;{количество отрезков}
type Totr=record{тип запись отрезок с полями}
          naz:char;{имя точки - символ}
          dln:real;{длина-действительное число}
          end;
function PLOSHAD(x,y,z:real):real;{функция определения площади по формуле Герона}
var p:real;
begin
p:=(x+y+z)/2;{полупериметр}
PLOSHAD:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var m:array[1..n] of Totr;{массив записей-отрезков}
    i,j,k:byte;
begin
clrscr;
writeln('Введите длины 4х отрезков:');
for i:=1 to n do
 begin
  m[i].naz:=chr(ord(i+64));{присваиваем символы отрезкам, коды символов прописных латинских букв начинаются с А=65}
  write('Длина ',m[i].naz,'=');readln(m[i].dln);
 end;
writeln;
writeln('Треугольник можно составить из отрезков:');
for i:=1 to n-2 do{первый отрезок}
for j:=i+1 to n-1 do{второй}
for k:=j+1 to n do{третий}
{проверка существования треугольника - если любая сторона больше модуля разности двух другиз и меньше их суммы}
if(m[i].dln>abs(m[j].dln-m[k].dln))and(m[i].dln<m[j].dln+m[k].dln)
then
 begin
  write(m[i].naz,'+',m[j].naz,'+',m[k].naz);{выводим названия отрезков}
  write('  площадь=',PLOSHAD(m[i].dln,m[j].dln,m[k].dln):0:4);{площадь}
  writeln;
 end;
readln
end.