Исправить код программы

program IPR2;
 
function notglasn(c: char): boolean;
begin
  if (c in ['a', 'e', 'i', 'u', 'o', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ' ']) then
    notglasn := false
  else
    notglasn := true;
end;
 
var
  s: string;
  last: string;
  j, i, n, k: integer;
  count: integer;
  c: char;
 
begin
  writeln('Введите текст: ');
  readln(s);
  k := length(s);
  while (k > 0) and (s[k] = ' ') do {Определение кол-ва слов на случай =0. Тогда выход из цикла}
    k := k - 1;
  if (k = 0) then
  begin
    writeln('В тексте нет слов');
    readln;
    halt;
  end;
  n := k;
  while (n > 0) and (s[n] <> ' ') do {Определение кол-ва слов на случай =1. Тогда выход из цикла}
    n := n - 1;
  if (n = 0) then
  begin
    writeln('В тексте только одно слово');
    readln;
    halt;
  end;
  {выполнение п.2 задания}
  i := 1; {начинаем с первого символа в строке}
  j := 0; {сначала длина слова равна нулю}
  while i <= k do 
  begin
    if s[i] <> ' ' then begin{если очередной символ не пробел}
      j := j + 1; {увеличиваем длину слова}
      i := i + 1; {переходим к следующей букве}
    end
    else begin{если очередной символ пробел}
      if j < 3 then begin{если длина слова < 2}
        delete(s, i - j, j + 1); {вырезаем вместе с пробелом после слова}
        k := length(s);
        i := i - j; {i в начало на длину вырезанной подстроки}
        j := 0; {обнуляем длину слова}
      end
      else begin{если длина слова > 2}
        i := i + 1; {переходим к следующей букве}
        j := 0; {обнуляем длину слова}
      end;
    end;
  end;
  
  if j > 0 then {если последнее слово > 0 букв}
    
    last := copy(s, i - j, j);
  writeln('Последнее слово: ', last);
  delete(s, i - j, j); {удаление последнего слова}
  writeln('Текст, кроме последнего слова и не более двух букв: ', s);
  
  writeln('Согласные буквы:'); {опрееление количества согласных букв}
  c := s[1];
  count := 0;
  if (notglasn(c)) then
  begin
    count := count + 1;
    for i := 2 to length(s) do
      if (s[i] = c) then
        count := count + 1;
    writeln(c, ': ', count);
  end;
  for i := 2 to length(s) do
  begin
    if (s[i] <> c) and (notglasn(s[i])) then
    begin
      count := 1;
      for j := i + 1 to length(s) do
        if (s[i] = s[j]) then
        begin
          count := count + 1;
          s[j] := c;
        end;
      writeln(s[i], ': ', count);
    end;
  end;
  readln; 
end.

writeln('Введите текст: ');
  readln(s);

  var s := ReadLnString('Введите текст:');

k := length(s);
  while (k > 0) and (s[k] = ' ') do {Определение кол-ва слов на случай =0. Тогда выход из цикла}
    k := k - 1;
  if (k = 0) then
  begin
    writeln('В тексте нет слов');
    readln;
    halt;
  end;
  n := k;
  while (n > 0) and (s[n] <> ' ') do {Определение кол-ва слов на случай =1. Тогда выход из цикла}
    n := n - 1;
  if (n = 0) then
  begin
    writeln('В тексте только одно слово');
    readln;
    halt;
  end;

procedure Stop(msg : String);
begin
  WriteLn(msg);
  ReadLn;
  Halt;
end;
. . .
  var d := ' .,:;!?/'.ToCharArray;
  var words := s.ToWords(d);
  case words.Count of
    0 : Stop('В тексте нет слов.');
    1 : Stop('В тексте только одно слово.');
  end;

  WriteLn('Последнее слово: ', words.Last);
  Write('Слова, отличные от последнего: ');
  foreach var word in words do
    if word.ToUpper <> words.Last.ToUpper then
      Print(word);
  WriteLn;

const sogl = 'БВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
. . .
  var dict := New Dictionary<char,integer>;
  foreach var ch in s.ToUpper do
    if sogl.IndexOf(ch) > -1 then
      dict[ch] := dict.Get(ch) + 1;
  WriteLn('Согласные буквы и сколько раз встречаются:');
  foreach var v in dict do
    Print(String.Format('{0} - {1}  ', v.Key, v.Value));
  WriteLn;

const sogl = 'БВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
 
procedure Stop(msg : String);
begin
  WriteLn(msg);
  ReadLn;
  Halt;
end;
 
begin
  var s := ReadLnString('Введите текст:');
  var d := ' .,:;!?/'.ToCharArray;
  var words := s.ToWords(d);
  case words.Count of
    0 : Stop('В тексте нет слов.');
    1 : Stop('В тексте только одно слово.');
  end;
  WriteLn('Последнее слово: ', words.Last);
  Write('Слова, отличные от последнего: ');
  foreach var word in words do
    if word.ToUpper <> words.Last.ToUpper then
      Print(word);
  WriteLn;
  var dict := New Dictionary<char,integer>;
  foreach var ch in s.ToUpper do
    if sogl.IndexOf(ch) > -1 then
      dict[ch] := dict.Get(ch) + 1;
  WriteLn('Согласные буквы и сколько раз встречаются:');
  foreach var v in dict do
    Print(String.Format('{0} - {1}  ', v.Key, v.Value));
  WriteLn;
end.

  words := words.Where(word->word.Length<>2).toArray;
  Write('Слова кроме двухбуквенных: '); words.Println;

  words.Where(word->word.Distinct.Count<>2).PrintLn;
  words.Println;

ооаоаоаоаао оооооооо
лвалрвавмтое ооаоаоаоаао ыолоывокл оооооооо оывлмовлмо