Циклы с разветвлением: проверка существования пяти треугольников

program guf;
 
uses
    crt;
 
const
    emin = 1; emax = 3;
 
type
    troika = array [emin..emax] of integer;
 
var
    a, b, c: troika; i: byte;
 
begin
    randomize;
    for i := emin to emax do 
    begin
        a[i] := random(10);
        b[i] := random(10);
        c[i] := random(10);
        if (a[i] + b[i] > c[i]) and (b[i] + c[i] > a[i]) and (a[i] + c[i] > b[i]) then begin
            writeln('Mozhno!');
            writeln('A = ', a[i]);
            writeln('B = ', b[i]);
            writeln('C = ', c[i]);
        end
        else begin
            writeln('Nelzya!');
            writeln('A = ', a[i]);
            writeln('B = ', b[i]);
            writeln('C = ', c[i]);
        end;
    end;
    readkey;
end.

uses crt;
var x,y,z:real;
    i:byte;
begin
clrscr;
for i:=1 to 5 do
 begin
  writeln('Введите 3 числа:');
  readln(x,y,z);
  if(x+y>z)and(x+z>y)and(y+z>x) then writeln('Можно образовать треугольник')
  else writeln('Нельзя образовать треугольник')
 end;
readln
end.