Транслит с помощью "Conv"

Var I: Byte;
begin
  Result:=S;
  for I:=1 to Length(S) do
    if Ord(S[I]) in [192..239] then
      Result[I]:=Chr(Ord(S[i])-64)
    else
      if (Ord(S[I])>239) then
        Result[I]:=Chr(Ord(S[i])-16);
end; { Conv} *)
var
  pointx : array[0..2] of integer;     //Координаты x
  pointy : array[0..2] of integer;     //Координаты y
  len : array[0..2] of real;           //Длины сторон
  ma,mb,mc : real;                     //Медианы
  gipoten : real;                      //Гипотенуза
  i,maxst : integer;                   //Вспомогательная переменная
  b: boolean;
  eps: real;
begin
     {Ввод данных}
     writeln('Введите координаты:');
     for i := 0 to 2 do
     begin
       write('x',i+1,'='); read(pointx[i]);
       write('y',i+1,'='); read(pointy[i]);
     end;
 begin
      {Вывод eps}
      writeln('Введите погрешность=  ');
      readln(eps);
     {Рассчёт длины}
     for i := 0 to 2 do
         len[i] := sqrt(sqr((pointx[(i+1) mod 3]-pointx[i])/1) + sqr((pointy[(i+1) mod 3] - pointy[i])/1));
     {Расчет медиан}
          ma:=sqrt((2*len[2]*len[2]+2*len[1]*len[1]-len[0]*len[0])/4);
          mb:=sqrt((2*len[0]*len[0]+2*len[2]*len[2]-len[1]*len[1])/4);
          mc:=sqrt((2*len[0]*len[0]+2*len[1]*len[1]-len[2]*len[2])/4);
      {Находим самую длинную сторону}
      maxst:=0;
      if len[maxst] < len[1]
         then
         maxst:=1;
      if len[maxst] < len[2]
         then
         maxst:=2;
 
      b:=true;
      if (len[1]=0) and (len[2]=0)
        then
        writeln('Точки совпадают')
      else
        begin
       {Проверка вырожденности}
        if len[maxst] = len[(maxst+1) mod 3] + len[(maxst+2) mod 3]
        then
         begin
          writeln('Тр-к вырожденный');
          b:=false;
         end;
 
 
      {Проверка прямого угла}
       gipoten := sqrt(sqr(len[(maxst+1) mod 3]) + sqr(len[(maxst+2) mod 3]));
        if (len[maxst]=gipoten)
        then
         begin
          writeln('Тр-к прямоугольный');
          b:=false;
         end;
      {Проверка кол-ва равных сторон}
      if (eps>=abs(len[0] - len[1])) and (eps>=abs(len[1] - len[2])) and (eps>=abs(len[2] - len[0]))
        then
        writeln('Тр-к равносторонний')
      else if (len[0] = len[1]) or (len[1] = len[2]) or (len[2] = len[0])
        then
        writeln('Тр-к равнобедренный')
      else if b
        then
        writeln('Тр-к общего вида');
end;
readln;
readln
end
end.