ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Паскаль АБС
1.Символы вводятся с клавиатуры до символа ‘.’ (точка). Вывести символы, предшествующие каждому из введенных. (Ввод: feui56HG Вывод: edth45GF)

var k:char;

s:string;

BEGIN

s:='';

repeat

read(k);

s:=s+chr(ord(k)-1)

until k='.';

delete(s,pos('-',s),1);

writeln(s);

end.