Viết chương trình pascal lớp 9 về string

Question

Hãy viết chương trình nhập vào xâu bất kỳ,xuất ra dãy kí tự chữ cái trong xâu dài nhất.

Ví dụ: Nhập : maingiaungheuasd90ada70adas

-> Xuất ra: maingiaungheuasd

Answer 1

program xauDaiNhat;
uses crt;
label Xong;
var input, inputLowered, output: String;
    i: Integer;
    ch: char;
begin
  clrscr;
  write('Nhap xau dau vao: ');
  readln(input);
  writeln;
  output := '';
  inputLowered := lowerCase(input);
  for i := 1 to length(inputLowered) do
  begin
    ch := inputLowered[i];
    if ((ord(ch) >= 97) and (ord(ch) <= 122)) <strong>then
        output := output + input[i]
    else
        goto Xong;
  end;
  Xong:
  write('Xau ki tu chu cai dai nhat: ', output);
  readln;
end.