Pascal ABC
Вот программа в которой надо удалить символ *. Как мне это сделать?
Еще в этой программе надо удвоить каждый символ отличный от *, до этого я еще не дошел, с удалением не разобрался..
Вот мой код, написанный не правильно
program qq;
uses crt;
var a:string;
i:byte;
n:integer;
begin
writeln('Введите строку');
readln(a);
i:=1;
for i:=1 to length(a) do
begin
if '*' = a[i] then
begin
delete (что здесь писать?) ;
end;
writeln(a);
end.