Тема: Як зробити програму що видаляє слова. Pascal
Я пару годин не можу зробити програму що видаляє слова які мають хочаб одну цифру.
Program asm;
uses crt;
var mytext, word1:string; 
    i,k :integer;
Begin
  clrscr;
  write('Ведіть текст: '); readln(mytext);
  word1:='1';
  k:=length(word1);
  for i:=1 to length(mytext) do
    if copy(mytext,i,k)= word1 then
    begin
      delete(mytext,i,k);
    end;
  writeln(mytext)
end.