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

//PascalABC.NET 3.2 сборка 1318var  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 ^Пример вывода:GlebKosyrevSamplePointerSymbolis