Строки. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'.

var
  s: string;
  n, k, i, i2, sum: integer;
 
begin
  writeln('Комиссионный сбор:');
  readln(sum);
  writeln('Введите цену одного слова: ');
  read(k);
  writeln('Содержание письма:');
  repeat
    readln(s);
  until(length (s) > 0);
  s := s + ' ';
  for i2 := 1 to length(s) do
    if s[i2] = ' ' then
      sum := sum + k;
  writeln('Стоимость телешраммы: ', sum);
end.

var
  s: string;
 
begin
  write('Введите исходное число: '); read(s);
  while s[1] = '0' do delete(s, 1, 1);
  writeln('Результат: ', s);
end.

uses crt;
var st, buf:string;
i,k:integer;
s,c:real;
f:boolean;
 
begin
    k:=0;
    write('Стоимость слова -> ');
    readln(c);
    write('Текст -> ');
    readln(st);
    buf:=''; 
    for i:=1 to length(st) do
    begin
        if st[i]<>' ' then
        begin
            buf := buf + st[i];
            f:=true;
        end else begin
            if f then
            begin
                inc(k);
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
        inc(k);
        buf:='';
    end;
    s := c * k;
    writeln('Стоимость телеграммы = ',s:0:2);
    readln;
end.

uses crt;
var st,sub,sub2:string;
i:integer;
 
begin 
    clrscr;
    write('-> ');
    readln(st);
    sub:='на';
    sub2:='над';
    i := 1;
    while i <= length(st) - length(sub) + 1 do
    begin
        if copy(st,i,length(sub))=sub then
        begin
            delete(st,i,length(sub));
            insert(sub2,st,i);
            i := i + length(sub2);
        end else inc(i);
    end;
    writeln(st);
    readln;
end.

uses crt;
var s: string; i: byte;
begin
clrscr;
s:='0000001103';
writeln('исходная строка: ');
i:=1;
if s[1]='0' then
begin
while s[i]='0' do
delete(s,pos(s[i]),1);
writeln('результат: ',s);
end
else writeln('строка не начинается с нуля');
end.