Составить программку, которая в строке Один, два, три, восемь, четыре, 5

program zz1;
var s: string; // задаем переменную строкового типа
f: integer; // задаем переменную целого типа
begin

s:= Один, два, три, восемь, четыре, 5 ; // задаем значение строковой переменной
f:=Pos(восемь,, s); // обнаруживаем в начальной строке позицию лишнего числа с помощью специальной строковой функции
Delete(s, f, 8); // устраняем его с помощью специальной строковой команды
write( приобретенная строчка = , s); // выводим ответ
end.