/—code pascal
program pozvanky;

uses crt;

var f: Text;
text: String;
vysledok : String;
meno, priezvisko : String;
s: String;
medzera:integer;
pozMeno, pozPri : integer;

begin
clrscr;
Writeln(‘Zadaj text pozvanky’);
Readln(text);
clrscr;
assign(f, ‘c:\mena.txt’);
reset(f);
while not eof(f) do begin
readln(f, s);
{writeln(s);}
medzera := pos(‘ ‘,s);
meno := copy(s,1,medzera-1);
priezvisko := copy(s,medzera+1, length(s)-(medzera));
{writeln(‘meno: “‘ + meno + ‘”‘);
writeln(‘priezvisko: “‘ + priezvisko + ‘”‘);}
vysledok := text;
pozMeno := pos(‘(m)’,vysledok);
delete(vysledok, pozMeno, 3);
insert(meno, vysledok, pozMeno);

pozPri := pos(‘(p)’,vysledok);
delete(vysledok, pozPri, 3);
insert(priezvisko, vysledok, pozPri);

writeln(vysledok);

end;
close(f);
readln;

end.
\—