Преобразовать заданную строку путем удаления из нее всех заглавных латинских букв — Pascal(Паскаль)

Program xa;

label 1;

var
  a: string;
  i, s, c: integer;

begin
  writeln('Vvedite stroky: ');
  readln(a);

1:
  for i := 1 to length(a) do
    if a[i] in ['A' .. 'Z'] then
    begin
      delete(a, i, 1);
      goto 1;
    end;

  writeln('Isx: ', a);
  readln;

end.