Дана строка из 30 символов, удалить 1 и 5 символ, заменить все точки на запятые, сделать все символы прописными и вставить в конец точку

//Pascal ABC.NET 3.1 сборка 1219Var s:string; c:integer;begin readln(s); delete(s,1,1); delete(s,4,1); while pos('.',s)<>0 do  begin   c:=pos('.',s);   delete(s,c,1);   insert(',',s,c);  end; s:=s.ToLower+'.'; writeln(s);end.Пример ввода:СТРОКА из 30 символов. удалить 1 и 5Пример вывода:троа из 30 символов, удалить 1 и 5.