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

//Pascal ABC.NET 3.1 сборка 1219 Var  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.