Разработка программ обработки символьных и строковых данных(блок-схема)

[Stellar_light]

Помогите составить блок-схему к данной программе
program lab_5;
uses crt;
const n=10;
var X:array[1..n] of string[10];
i,i1,i2,k:byte;
s:string[10];
begin
clrscr;
writeln('Программа обработки данных строкового типа');
writeln('Введите ', n,' слов из 4-10 руских букв');
For i:=1 to n do
begin
write(i, '-e слово ');
readln(x[i]);
end;
k:=0;i1:=0;
For i:=1 to n do
if x[i][1]='а'then
begin
k:=k+1;
i1:=i;
end;
if k=0 then
begin
write('Слова на букву а нет, работа программы завершена!');
readln;
exit;
end;
if k>1 then
begin
write('Слова на букву а несколько, работа программы завершена!');
readln;
exit;
end;
k:=0;i2:=0;
For i:=1 to n do
if x[i][length(x[i])]='я'then
begin
k:=k+1;
i2:=i;
end;
if k=0 then
begin
write('Слова, оканчивающегося на букву я нет, работа программы завершена!');
readln;
exit;
end;
if k>1 then
begin
write('Слов,оканчивающегося на букву я несколько, работа программы завершена!');
readln;
exit;
end;
s:=x[i1]; x[i1]:=x[i2]; x[i2]:=s;
writeln('Обмен слов:');
For i:=1 to n do
write(' ',x[i]);
readln
end.