Прога не работает, объясните почему и как это исправить. function stroka(s: string): string;varx,k,i:integer;beginfor i:=1 to length(s) dobeginval(copy(s,i,1),x,k);if k<>0 then delete(s,pos(copy(s,i,1),s),1);end;stroka:=s;end;vars1:string;beginread(s1);write(stroka(s1));end.