запись процедуры на псевдокоде

[Baralgin91]

Добрый всем вечер!!
помогите пожалуйста записать процедуру на псевдокоде, сам не как написать ,вот сама процедура :

procedure form(as:ZapCor;i:word);{Создание буферного файла без повторов}
var
f1:file of ZapCor;
NZap:ZapCor;
rec:boolean;
begin
assign(f1,Fi);
reset(f1);
if i=1 then
write(f1,as);
while not EoF(f1) do
begin
read(f1,NZap);
if not ((NZap.Vid=as.Vid) and (NZap.Date=as.Date)
and (NZap.Name=as.Name)) then
begin
seek(f1,filesize(f1));
write(f1,as);
end;
end;
close(f1)
end;

заранее благодарен