Создание программы по блок-схеме

program triangle;
 var a,b,c:real;
 L:boolean;
begin
 writeln('Введите сторону a');
 readln(a);
 writeln('Введите сторону b');
 readln(b);
 writeln('Введите сторону c');
 readln(c);
  begin
  if (a+b>c) and (a+c>b) and (c+b>a)then
  writeln('Треугольник построить можно')
  else
  if (a+b<c) and (a+c<b) and (c+b<a)then
  writeln('Треугольник построить нельзя');
  end;
  if (a=c) and (c=b) then
  writeln('Это равносторонний треугольник')
  else
  L:=false;
  writeln('равнобедренный');
  if ((a=b)and(a<>c)) or ((a=c)and(a<>b)) or ((b=c)and(b<>a)) then
    writeln('Это равнобедренный треугольник');
    if L=true then
    writeln('прямоугольный');
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(c)+sqr(b)=sqr(a)) then
   writeln('Треугольник прямоугольный');
   if L=false then
   writeln('произвольный');
end.

program triangle; // <---------- нет необходимости в данной строке! ----------
 var a,b,c:real;
 L:boolean;
begin
 writeln('Введите сторону a');
 readln(a);
 writeln('Введите сторону b');
 readln(b);
 writeln('Введите сторону c');
 readln(c);
  begin // <---------- зачем эта операторная скобка? ----------
  if (a+b>c) and (a+c>b) and (c+b>a)then
  writeln('Треугольник построить можно')
  else
  if (a+b<c) and (a+c<b) and (c+b<a)then
  writeln('Треугольник построить нельзя');
  end; // <---------- и эта тоже не нужна! ----------
  if (a=c) and (c=b) then // <---------- А дальнейший код программы не соответствует блок-схеме ;–)
  writeln('Это равносторонний треугольник')
  else
  L:=false;
  writeln('равнобедренный');
  if ((a=b)and(a<>c)) or ((a=c)and(a<>b)) or ((b=c)and(b<>a)) then
    writeln('Это равнобедренный треугольник');
    if L=true then
    writeln('прямоугольный');
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(c)+sqr(b)=sqr(a)) then
   writeln('Треугольник прямоугольный');
   if L=false then
   writeln('произвольный');
end.

begin
  var a := ReadReal('Введите сторону a =');
  var b := ReadReal('Введите сторону b =');
  var c := ReadReal('Введите сторону c =');
  if (a+b>c) and (a+c>b) and (c+b>a) then
    begin
      writeln('Треугольник построить можно');
      if (a=b)and(b=c) then
        WriteLn('равносторонний')
      else
        begin
          var L := False;
          if (a=b) or (a=c) or (b=c) then
            begin
              WriteLn('равнобедренный');
              L := True;
            end;
          if (abs(sqr(a)+sqr(b)-sqr(c))<1e-7)or(abs(sqr(a)-sqr(b)+sqr(c))<1e-7)or(abs(-sqr(a)+sqr(b)+sqr(c))<1e-7) then
            begin
              WriteLn('прямоугольный');
              L := True;
            end;
          if Not L then
            WriteLn('произвольный');
        end;
    end
  else
    writeln('Треугольник построить нельзя');
end.