Написать блок-схему к программе...

[Lucia000]

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

program P1;
var
  S:string;
  A:array [1..10] of char;
  i,j,k,n:integer;
begin
  writeln ('Введите элементы массива');
  for j:=1 to 10 do
    readln(A[j]);
  writeln('Введите строку');
  readln(s);
  n:=0;k:=length(s);
  for i:=1 to length(S) do
    for j:=1 to 10 do
      if S[i]=A[j]then begin
        inc(n);
        break;
      end;
      If n=k then
        writeln('возможно составить строку из заданных элементов массива')
      else
        writeln('невозможно составить строку из заданных элементов массива');
  readln;
end.

Я буду очень благодарна))*

[Mad_Cat]