Помогите безотлагательно, даю 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 qgt;n
then begin writeln ('знаков для удаления больше, чем существует');     
s:='';  end
else   
delete (s,((n+1)-q),q+1); 
write (s); 
 end.

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