Дана строка из 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.