Необходимо перевести код pascal в delphi

 //Свойства - закладка "Шрифт" - шрифт "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте текст:');
    Readln(S);
    Len := Length(S);
 
    PosW := 0;
    NumW := 0;
    P1 := 0;
    Len1 := Len;
    Num1 := 0;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем начало слова.
      if (i = 1) or (S[i - 1] in D) then PosW := i;
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        //Порядковый номер слова
        Inc(NumW);
        //Длина слова.
        LenW := i - PosW + 1;
        if LenW < Len1 then begin
          P1 := PosW;
          Len1 := LenW;
          Num1 := NumW;
        end;
      end;
    end;
 
    //Ответ.
    if P1 > 0 then begin
      Writeln('Самое короткое слово: "', Copy(S, P1, Len1), '".');
      Writeln('Порядковый номер слова: ', Num1, ', длина: ', Len1);
    end else begin
      Writeln('В тексте нет слов.');
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.