Составить программу в pascal, которая вводит строку символов, удаляя все символы, не являющиеся латинскими буквами и затем выводит результаты.

//PascalABC.NET 3.2 сборка 1318

var
  s: string;
  i,k: integer;

begin
  readln(s);
  i:=1;
  k:=length(s);
  while i<>k do
  begin
    k:=length(s);
    if (upcase(s[i]) < 'A') or (upcase(s[i]) > 'Z') then
      begin
        delete(s, i, 1);
        i:=i-1;
      end;
    i:=i+1;
  end;
  writeln(s);
end.

Пример ввода:
Gleb1Kosyrev Sample Текст, Pointer Symbol is ^
Пример вывода: