помогите сделать блок схему пргораммы на паскале. кто шарит реально

{Процедура: Исправить в строке служебные слова}
Procedure EditRsWords(var line:string);
Const
Wrange:set of char=['A'..'Z','a'..'z'];
Nmax=50;rsN=38;
{Служебные слова Паскаля: }
RsW:array[1..rsN]of string=
('AND','ARRAY','BEGIN','BOOLEAN','BYTE','CASE','CHAR','CONST','DIV','DO',
'DOWNTO','ELSE','END','FALSE','FILE','FOR','FUNCTION','FORWARD',
'GOTO','IF','IN','LABEL','MOD','NOT',
'OF','OR','PROCEDURE','PROGRAM','RECORD','REPEAT',
'SET','THEN','TO','TYPE','UNTIL','VAR','WHILE','WITH');
RsR:array[1..rsN]of string=
('и','массив','начало','логический','байт','случай','символ','константа','деление','делать',
'уменьшая_до','иначе','конец','ложь','файл','для','функция','вперед',
'перейти','если','в','метка','остаток_от_деления','нет',
'из','или','процедура','программа','запись','повторить',
'установить','то','до','тип','до_тех_пор','переменная','пока','писать');
Var
p0,pf:array[1..Nmax]of integer;N,k,z,
i,j,Len,head,tail:integer;w:string;
NoWords,Match:boolean;
Begin
line:=line+' ';Len:=length(line);
{Счетчик буквосочетаний (иниц-ция) и установка флага}
N:=0;NoWords:=true;
{Цикл по всем символам строки}
for i:=1 to Len do
{Если символ - буква, то}
if(linein Wrange) then begin
{Если букв еще не было, то}
if NoWords then begin
{Это - новое слово, запомнить позицию начала}
inc(N);p0[N]:=i;NoWords:=false;end;

программа переводит операторы на русский язык