Синформатикой. нужно составить программу которая удалит из текста все цифры( использование pos, copy, delete, insert)

For i: =1 to length(s) do if s[i] in ['1'..'9'] then sum: =sum+ord(s[i])-48; //здесь ноли не считаем, от них сумма не меняется writeln('сумма цифр в тексте='sum); if sum> 5 then   begin   for i: =lengrh(s) downto 1 do   if s[i] in ['0'..'9'] then delete(s,i,1);   write(s);   end else write('цифры не удаляются! ');