СРОЧНО!Составить программу(10класс):
дано предложение,заменить в нем все запятые на точки и удалить из предложения подстрочку по запросу пользователя.

uses Crt; var  Stroka, PodStroka: string;     poz, i: integer;begin ClrScr; Write(' Stroka :   '); ReadLn (Stroka); for i:= 1 to length (Stroka) do     if Stroka[i]=',' then Stroka[i]:='.'; WriteLn(' Zamena :   ', Stroka); WriteLn; Write(' PosStroka :   '); ReadLn (PodStroka); poz:=Pos(PodStroka, Stroka); Delete (Stroka,poz,length(PodStroka)); WriteLn(' Udalili :   ', Stroka); ReadLn;end.