15 напишите программу, которая удаляет из строки n символов с конца.

Uses crt;
var s: string;
n,q :integer;
begin
while n=0 do begin
writeln ('Введите строку ');
readln (s);
n:=length(s);
clrscr;
end;
writeln('сколько символов нужно удалить из ',s,' ?');
read (q);
if q>n
then begin writeln ('символов для удаления больше, чем существует');     
s:='';  end
else   
delete (s,((n+1)-q),q+1); 
write (s); 
 end.

P.s. Программа написана на языке Pascal ABC.