Блок-схема

[Асичка]

помогите пожалуйста составить блок схему.
uses crt;
type
FIRM=record
fam:string;
dat:string;
stag:integer;
okl:integer;
end;
var
base:array [1..50] of FIRM;
i,n:integer;
z:real;
begin
write('Введите количество сотрудников->');
readln(n);

writeln('Заполнение базы:');
for i:= 1 to n do
with base[i] do
begin
write('Введите фамилию сотрудника - ');readln(fam);
write('Дата рождения - ');
readln(dat);
write('Стаж - ');
readln(stag);
write('Оклад -');
readln(okl);

with base[i] do
if stag>20 then z:=okl+0.5*okl
else if stag>=10 then z:=okl+0.3*okl
else if stag>=5 then z:=okl+0.1*okl
else z:=okl;
writeln('Заработная плата =',Z);
end;


end.