Программный код есть - помогите с блок-схемами

program lab1;
uses
  crt;
var
  i, j, k, vfrom, vto: integer;
  max, avg, avgnum: integer;
  maxinit: boolean;
  x: integer;
begin
  clrscr;
  write('from: ');
  readln(vfrom);
  write('to: ');
  readln(vto);
  maxinit:=false;
  avgnum:=0;
  for i:=vfrom to vto do
  begin
   x:=i;
    while x div 10 > 0 do
      x:=x div 10;
    if i mod 10 = x then
    begin
      if maxinit then
      begin
        if i > max then
        max:=i;
      end
      else
      begin
        max:=i;
        maxinit:=true;
      end;
    end
    else
    begin
      avg:=avg + i;
      avgnum:=avgnum + 1;
    end;
  end;
  if avgnum > 0 then
    writeln('avg = ', avg div avgnum)
  else
    writeln('average not found');
 
  if maxinit then
    writeln('max = ', max)
  else
    writeln('max not found');
 
  readln;
end.

program lab2;
uses
  crt;
var
  s: array[0..5, 0..5] of integer;
  i, j, k, l: integer;
 
  procedure showmass;
  var
    i, j: integer;
  begin
    for j:=0 to 5 do
    begin
      for i:=0 to 5 do
        write(s[i, j]:5);
      writeln;
    end;
    writeln;
  end;
 
begin
  clrscr;
  randomize;
  for i:=0 to 5 do
    for j:=0 to 5 do
      s[i, j]:=random(100);
  showmass;
 
  for j:=0 to 5 do
    for i:=0 to 5 do
      for k:=0 to 3 - j do
        if s[k + 1, j] < s[k, j] then
        begin
          l:=s[k + 1, j];
          s[k + 1, j]:=s[k, j];
          s[k, j]:=l;
        end;
 
  for i:=0 to 5 do
    for j:=0 to 5 do
      for k:=i + 1 to 4 do
        if s[i, k + 1] > s[i, k] then
        begin
          l:=s[i, k + 1];
          s[i, k + 1]:=s[i, k];
          s[i, k]:=l;
        end;
 
 
  showmass;
 
  readln;
end.

program lab3;
uses
  crt;
const
  gl = ['a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U'];
 
var
  s: string;
  i, j, n: integer;
  d: boolean;
 
begin
  clrscr;
  n:=0;
  i:=1;
  readln(s);
  s:=s + ' ';
  while i <= length(s) do
  begin
    if not (s[i] in [' ', '.', ',']) then
    begin
 
      d:=false;
      if (s[i] = s[i + 1]) and not (s[i] in gl) then
      begin
        n:=n + 1;
        while s[i] <> '.' do
          i:=i + 1;
      end;
 
 
    end;
    i:=i + 1;
  end;
 
 
  writeln(n);
  readln;
end.