Составить программу(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.