Помогите переписать код из паскаля для лазаруса

Var i,b,k,p:integer;
s,a,c:string;
f,f1:text;
begin
assign(f,'input.txt');
reset(f);
readln(f,s);
close(f);
i:=pos(' ',s);
a:=copy(s,1,i-1);
delete(s,1,i);
c:=s;
b:=0; k:=0;
for i:=1 to 4 do
begin
p:=pos(a[i],c);
if p<>0 then
if p=i then b:=b+1 else k:=k+1;
end;

assign(f1,'output.txt');
rewrite(f1);
write(f1,b,' ',k); close(f1);
end.