Ввести имя файла и изменить его расширение на ехе — Pascal(Паскаль)

пример
qqq.com
результат
qqq.exe

Var
 S: string;
Begin
 Readln(S);
 while S[length(S)]<>'.' do
  delete(S,length(S),1);
 S:=S+'exe';
 Writeln(S);
End.