постройте пожалуйста блок-схемы

var s:string;
a:set of char;
b:set of char;
i:integer;
begin
readln(s);
a:=[',','.','!','@','/','\',';',':'];
for i:=1 to length(s) do
  if s[i] in a then include(b,s[i]);
for i:=0 to 255 do
if chr(i) in b then
write(chr(i),' ');
  end.
 
var a,k1,z:set of byte;
m:byte;
i, n, k, j:longint;
begin
writeln('Введите число');
readln(m);
for i:=1 to m div 2 do
  if m mod 2=0 then include(a,i);
i:=1;
for i:=2 to m do
begin
k:=0;
for j:=2 to i-1 do
if i mod j = 0 then k:=1;
if (k=0)and(n mod i=0)then include(k1,i);
end;
z:=a-k1;
for i:=1 to 255 do if i in z then write(i,' ');
end.
 
type uch=record
nam:string;
data:integer;
god:integer;
kurs:integer;
gr:string;
oc:integer;
end;
var  grup:array[1..25] of uch;
i,n:integer;
begin
for i:=1 to 25 do 
begin
with grup[i] do
begin
  writeln('Введите имя:');
  readln(nam);
  writeln('введите дату:');
  readln(data);
  writeln('введите год поступления.:');
  readln(god);
  writeln('Введите курс:');
  readln(kurs);
  writeln('введите группу:');
  readln(gr);
  writeln('введите оценку:');
  readln(oc);
end;
writeln;writeln;
end;
writeln('получили 2:');
for i:=1 to 25 do 
begin
with grup[i] do
  if oc=2 then writeln('Имя:',nam,'Дата: ',data,' год поступления.: ',god,' курс: ',kurs,' группа: ',gr);
end;
end.