Проверьте задачу на стоки!

[Dremgor]

В связи с проблемами с операционной системой не могу проверить задачу... Посмотрите пожалуиста и исправьте если не верно...
=================================== =======================
unit ulab4;

interface

procedure duble(var str: string; a:string);

implementation

const
del= ' ,.;:!&"''';

procedure duble(var str: string; a:string);
var
i,j,Nach,sim: integer;
pr: string;
pof: boolean;
begin
i:=1;
while i<=length(str) do
if pos(str[i], del)<>0 then
i:=i+1
else
begin
Nach:=i;
while (i<=length(str)) and (pos(str[i], del)=0) do
i:=i+1;
pr:=copy(str, Nach, i-Nach);
j:=1;

pof:=true;
while (j<=length(pr)) do
begin

for sim:=1 to length(a) do
if (pr[j]=a[sim]) then
pof:=false;

j:=j+1;
end;


if not pof then
begin
delete(str, Nach, i-Nach);
i:=Nach;
end
else
begin
insert(pr,str,Nach);
i:=Nach+(2*length(pr));
end;
end;
end;
end.

===================
program Var7;
uses
ulab4;
var
stroka, a: string;
begin
writeln('VVedute stroky: ');
readln(stroka);
writeln('Vvedite slovo: ');
readln(a);
duble(stroka, a);
writeln(stroka);
end.

[Sm1Le]

Прежде всего не понимаю причем здесь ОС к ПАскалю ...
А задание ? - или тут телепаты ? - как можно исправить то что не знаешь ?