Паскаль. Процедуры. Заменить в тексте одно слово на другое

[JosH7]

Нужно в заданном тексте слово "державный" заменить на "национальный".
Code:

program lab8 (input, output);
type t=string;
var f:text; str: t;
procedure p1 (s: t);
var i: integer;
begin
s:=' '+s+' ';
for i:=1 to length(s) do
if copy (s,i,11)=' derjavnui ' then
begin
delete (s,i,13);
insert(' nacionalnui ',s,i);
end; end;
begin
assign (f, 'd:\f11.txt');
rewrite(f);
while not eof(f) do
begin
readln(f, str);
p1(str);
end;
close(f); 
end.

[Новичок!]

используй функцию
pos(podstroka, stroka):integer;
она возвращает индекс начала подстроки

[Serge_Bliznykov]

JosH7, во-первых, зачем переопределять тип string ? (что, t писать быстрее?! )
во-вторых, ЧТО вы хотите сделать процедурой pl ?! изменить переданную строку? Так Вы не задаёте ей модификатор var - она из процедуры не возвращается.
Но, с другой стороны, вы всё равно изменённое значение никуда не используете?!

я бы предложил что-то вроде:

procedure p1(var s: string);
var i: integer;
begin
  s := ' ' + s + ' ';
  for i := 1 to length(s) do
    if copy(s, i, 11) = ' derjavnui ' then
    begin
      delete(s, i, 11);
      insert(' nacionalnui ', s, i);
    end; 
end;
var f1,f2 : text; str: string;

begin
  assign(f1, 'd:\f11.txt');
  reset(f1);
  assign(f2, 'd:\f11rez.txt');
  rewrite(f2);
  while not eof(f1) do
  begin
    readln(f1, str);
    p1(str);
    writeln(f2, str);
  end;
  close(f1);
  close(f2);
end.

ps. ВНИМАНИЕ! Код я НЕ ПРОВЕРЯЛ!

pps. решение через Pos (как предложил Новичок! короче, надёжнее и нагляднее.

[Stilet]

function p1(s: string):String;
const dd='derjavnui'; nn='nacionalnui';
var i: integer;
begin
  i:=pos(nn,s);
  while i>0 do begin
      delete(s, i, length(nn));
      insert(dd, s, i);
      i:=pos(nn,s);
 end; 
end;

var f1,f2 : text; str: string;

begin
  assign(f1, 'd:\f11.txt');
  reset(f1);
  assign(f2, 'd:\f11rez.txt');
  rewrite(f2);
  while not eof(f1) do
  begin
    readln(f1, str);
    writeln(f2, p1(str));
  end;
  close(f1);
  close(f2);
end.

Так лучше и быстрее.