Тема: Як зробити програму що видаляє слова. 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.