Дан текст на английском языке, который заканчивается точкой. В тексте удалить все гласные буквы, а согласные заменить на прописные — Pascal(Паскаль)

Program mn_2;

uses crt;

type
  let = 'a' .. 'z';

var
  gl: set of let;
  s: string;
  i: byte;

begin
  writeln('введите текст');
  readln(s);
  gl := ['a', 'e', 'i', 'o', 'u', 'y'];
  i := 1;
  repeat
    while s[i] in gl do
      delete(s, i, 1);
    s[i] := upcase(s[i]);
    i := i + 1;
  until s[i] = '.';
  writeln;
  readln;

end.