Определить символ, предшествующий последнему вхождению прописной буквы — Pascal(Паскаль)

uses crt;
var a,b,c:char;

begin
clrscr;
repeat
      b:=a;
      a:=readkey;
      if (a>='a')and(a<='z') then c:=b;
      write(a);
until a='.';
writeln;
write(c);
end.

program lab3;
uses crt;
var a,b,c:char;
begin
readln(a);
while a<>'.' do
  begin
    b:=a;
    readln(a);
    if (a>='a') and (a<='z') then
    c:=b;  
  end;
write('symbol is ',c);
end.