Обработка Строк, Помогите решить Опции

[-Alex-]

Задача такова.... Дана строка символов, представляющая предложение и строки, представляющие имя и отчество. Поместить в строку - предложение после имени отчество. Имя может быть указано несколько раз. Порядок ввода исходных данных:последовательность строк, представляющих - предложение; - имя; -отчество.
Порядок вывода результатов: - преобразованное предложение!

В двух словах - это так:
к примеру, вводиться строка: Иван работает,
потом вводится его отчество: Васильевич,

И прога должна вставить его отчество после имени: Иван Васильевич работает!!!

[Гость]

program pataya_laboratornaya;
var s,name,name1:string;
    k:integer;
procedure stroki(var st:string);
 var i,n,j:integer;
 begin
  i:=pos('  ',st);
   while (i<>0) do
   begin
   delete(st,i,1);
   i:=pos('  ',st);
   end;
   end;
procedure create(name:string);
 var i,n:integer;f:text;
     x:string;
  begin
   assign(f,name);
   {$I-}
   rewrite(f);
   {$I+}
   if ioresult <> 0 then writeln ('error')
   else
    begin
    readln(n);
    for i:=1 to n do
     begin
     readln(x);
     writeln(f,x);
     end;
    close(f);
    end;
  end;
procedure print_file(name:string);
 var x:string;f:text;
 begin
   assign(f,name);
   {$I-}
   reset(f);
   {$I+}
    if ioresult <> 0 then writeln ('error')
   else
    begin
      while not(eof(f)) do
      begin
       readln(f,x);
       writeln(x);
      end;
       close(f);
    end;
 end;
procedure obrabotka(name,name1:string);
  var x,s:string;
      f1:text;
      f2:text;
   begin
     assign(f1,name);
   {$I-}
   reset(f1);
   {$I+}
   if ioresult <> 0 then writeln ('error')
   else
    begin
       assign(f2,name1);
       {$I-}
       rewrite(f2);
       {$I+}


    if ioresult <> 0 then writeln ('error')
   else
    begin

      while not(eof(f1)) do
      begin
       readln(f1,x);
       stroki(x);
       writeln(f2,x);
      end;
       close(f2);
    end;
    close(f1);
 end;
     end;

    begin
{      writeln('ўўҐ¤ЁвҐ бва®Єг');
      readln(s);
      stroki(s);
      writeln('१г«мв в');
      writeln(s);}
      writeln('name=');
      readln(name);
      create(name);
      writeln('name1=');
      readln(name1);
      obrabotka(name,name1);
      print_file(name);
      print_file(name1);
end.

М

Теги !