определить количество символов в предложении, вставить в указанную позицию указанный текст

program StringsProject;
{$APPTYPE CONSOLE}
uses Windows,SysUtils;
var
 s,z:string;
 i,j:integer;
 
//процедура для вывода русского текста в консоли
procedure text0ut(t:string);
var o:string;
begin
 if(length(t)>0)then begin
  setLength(o,length(t));
  AnsiToOem(pchar(t),pchar(o));//меняем кодировку
 end else o:='';
 writeln(o);
end;
 
//процедура для ввода русского текста в консоли
procedure text1n(var t:string);
var o:string;
begin
 readln(t);
 if(length(t)=0)then exit;
 setLength(o,length(t));
 OemToAnsi(pchar(t),pchar(o));//меняем кодировку
 t:=o;
end;
 
//процедура для вывода строки
procedure showstr;
begin
 text0ut('Предложение = "'+s+'"');
end;
 
begin
 text0ut('Введите предложение (или нажмите ENTER, чтобы пропустить этот шаг):');
 text1n(s);
 if(length(s)<2)then//если длина введенной строки меньше 2ух символов:
  s:='Это стандартное предложение, введите лучше если можете...';
 showstr;
//1. определить количество символов в предложении:
 text0ut('Кол-во символов = '+inttostr(length(s)));//определяем длину строки
//2. вставить в указанную позицию указанный текст:
 z:=' 12345';//строка для вставки
 i:=pos(' ',s);//находим первый пробел
 if(i=0)then i:=length(s);//если пробелов нет, установим позицию в конец строки
 insert(z,s,i);//вставляем подстроку в строку
 text0ut('Вставили текст:');
 showstr;
//3. удалить с указанной позиции указанное количество символов:
 delete(s,i,length(z));
 text0ut('Удалили текст:');
 showstr;
//4. копировать с указанной позиции указанное количество символов:
 z:='';
 j:=pos(' ',copy(s,i+1,length(s)-i));//находим второй пробел
 if(j>0)then begin
  j:=j+i;
  text0ut('Копируем 2ое слово...');
  z:=copy(s,i+1,j-i-1);
 end else begin//если пробелов нет:
  if(length(s)>5)then begin
   j:=length(s)-4;//установим позицию на 5 символ с конца
   text0ut('Копируем 5 символов с конца...');
   z:=copy(s,j,5);
  end else begin//если в предложении меньше 6 букв:
   text0ut('Копируем 2 символ...');
   z:=copy(s,2,1);
  end;
 end;
 text0ut('Скопированный текст = "'+z+'"');
//5. указать номер первого вхождения подстроки в строку:
 text0ut('Ищем запятую...');
 i:=pos(',',s);
 if(i=0)then text0ut('Запятая не найдена =(')
  else text0ut('Запятая: '+inttostr(i)+' по счету символ');
 text0ut('Нажмите ENTER чтобы завершить программу...');
 readln;
 halt;
end.