лабораторная работа / 3-3 Из st1 удалить st2 / удалить

program ecz;

Label 1;

var

st1, st2: string;

i,j: byte;

q: real;

n: char;

begin

WriteLn('Vvedite 1 stroku');

ReadLn(st1);

WriteLn('Vvedite 2 stroku');

ReadLn(st2);

for i:=1 to length(st2) do

begin

n:= st2[i];

1:

for j:=1 to length(st1) do

begin

if st1[j]=n then

begin

Delete(st1,j,1);

goto 1;

end;

end;

end;

WriteLn('Ot stroki ostalos tolko: ', st1);

Read(q);

end.