помогите составить блок-схему к программе
program z1v27;
uses crt;
var d,i,max,x,cod,m:integer; t:string;
a:array[1..30] of string;
st,k,c,s:string;
begin
textbackground(0);
textbackground(13);
window(1,1,90,70);
clrscr;
gotoxy(2,1);write(#201);
for i:=3 to 79 do begin
gotoxy (i,1);write(#176);
d:=d+0;
end;
gotoxy (79,1);write(#187);
for i:=2 to 24 do begin
gotoxy (2,i); write (#177);
end;
gotoxy(2,25);write(#200);
for i:=3 to 79 do begin
gotoxy(i,30);write(#176);
d:=d+0;
end;
gotoxy(79,25);write(#188);
for i:=2 to 24 do begin
gotoxy(79,i);write(#177);
end;
textcolor(14);
gotoxy(17,2);
write('Министерство Образования и науки Российской Федерации');
gotoxy(23,3);
write('Федеральное агенство по образованию');
gotoxy(22,5);
write('Государственное образовательное учреждение');
gotoxy(21,6);
write('"Оренбургский государственный университет"');
gotoxy(25,8);
write('КОЛЛЕДЖ ЭЛЕКТРОНИКИ И БИЗНЕСА');
gotoxy(19,9);
write('Кафедра вычислительной техники и математики');
gotoxy(35,11);
write('ПРАКТИКА');
gotoxy(24,12);
write('для получения первичных навыков');
gotoxy(50,18);
write('Руководитель работы Герцог В.Г.');
gotoxy(50,19);
write('Исполнитель');
gotoxy(50,20);
write('Студентка группы 52П2');
gotoxy(50,21);
write('Альянова Н.А.');
gotoxy(35,24);
write('Оренбург 2011');
gotoxy(35,23);
textcolor(15);
write('Для продолжения нажмите Enter');
readln;
textbackground(14);
clrscr;
textbackground(10);
window(2,2,40,12);
clrscr;
textcolor(4);
gotoxy(2,1);write(#6);
for i:=3 to 37 do begin
gotoxy (i,1);write(#3);
end;
gotoxy(2,1);
for i:=3 to 37 do begin
gotoxy(38,1);write(#6);
end;
for i:=2 to 10 do begin
gotoxy (2,i);write(#3);
end;
gotoxy (2,11);write(#6);
for i:=3 to 37 do begin
gotoxy (i,11);write(#3);
end;
gotoxy(38,11);write(#6);
for i:=2 to 10 do begin
gotoxy (38,i);write(#3);
end;
textcolor(15);
gotoxy(7,2);
writeln(' Постановка задачи ');
textcolor(14);
writeln;
gotoxy(5,4);
writeln('Задан список областных ');
gotoxy(5,5);
writeln('центров России. Присвойте');
gotoxy(5,6);
writeln('переменной "t" название');
gotoxy(5,6);
writeln('города с максимальным');
gotoxy(5,7);
writeln('числом букв.');
gotoxy(7,8);
writeln('Для продолжения нажмите Enter..');
gotoxy (40,7);
readln;
textbackground(11);
window(42,2,80,12);
clrscr;
textcolor(14);
gotoxy(41,2);
gotoxy(2,1);write(#6);
for i:=3 to 37 do begin
gotoxy (i,1);write(#3);
end;
gotoxy(2,1);
for i:=3 to 37 do begin
gotoxy(38,1);write(#6)
end;
for i:=2 to 10 do begin
gotoxy (2,i);write(#3);
end;
gotoxy (2,11);write(#6);
for i:=3 to 37 do begin
gotoxy (i,11);write(#3);
end;
gotoxy(38,11);write(#6);
for i:=2 to 10 do begin
gotoxy (38,i);write(#3);
end;
gotoxy(7,7);
writeln('Введите количество городов');
gotoxy(7,8);
readln(m);
repeat
if(m>30) or (m<=0) then
begin
gotoxy(7,9);
writeln('Ошибка при вводе числа!');
gotoxy(7,10);
writeln('Повторите ввод!!!');
gotoxy(7,11);
writeln;
gotoxy(7,12);
writeln('Для продолжения нажмите Enter..');
readln;
end;
until(m<30) and (m>0);
for d:=1 to m do
begin
repeat
gotoxy(2,15);
textbackground(11);
window(2,15,38,24);
clrscr;
writeln;
gotoxy(3,5);
writeln('Введите название ', d, ' города ');
gotoxy(3,6);
readln(a[d]);val(a[d],x,cod);
if cod=0 then
begin
gotoxy(3,7);
writeln('Ошибка!!!');
gotoxy(3,8);
writeln('для продолжения Enter..');
readln;
end;
until cod<>0;
end;
max:=length(a[1]);
for d:=2 to m do
begin
if length(a[d])>max then
begin
max:=length(a[d]);
t:=a[d];
end;
end;
gotoxy(3,9);
writeln;
gotoxy(3,10);
writeln('Для продолжения нажмите Enter..');
readln;
textbackground(10);
window(42,15,79,24);
clrscr;
gotoxy(3,20);
writeln;
gotoxy(3,21);
writeln(' список городов');
gotoxy(3,22);
writeln;
gotoxy(3,23);
writeln(' _______________');
for d:=1 to m do
gotoxy(3,24);
writeln(' ',a[d]);
gotoxy(3,25);
writeln(' _______________');
writeln('Для продолжения нажмите Enter..');
readln;
clrscr;
textbackground(128);
window(1,1,80,25);
clrscr;
textbackground(10);
window(2,2,79,25);
clrscr;
textcolor(15);
gotoxy(10,10);
writeln(' город с наибольшим числом букв это-');
writeln;
writeln;
textcolor(128);
gotoxy(9,12);
writeln(' ',t);
readln;
end.