Нужна помощь по составлению блок-схем

[Sacred09]

Нужна помощь по составлению блок-схем

Добрый день, программисты!ПОМОГИТЕ составить схему из приведенного ниже кода
1)

uses crt;
const sp:array[1..10] of string=('Moskva','Orel','Glazov','Kolomna','Vanino','Kaluga','Serov','Rostov','Orsha','Klin');
var i,j:integer;
x:string;
begin
clrscr;
writeln ('Ishodnyj spisok:');
for i:=1 to 10 do
writeln(sp[i]);
writeln;
writeln('Izmenennyj spisok:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
if (sp[i] [length(sp[i])]='a')and(sp[j][length(sp[j])]='a')and(i<>j) then
begin
x:=sp[i];
sp[i]:=sp[j];
sp[j]:=x;
break;
end;
break;
end;
for i:=1 to 10 do
writeln(sp[i]);
readln;
end.

2)

Uses Graph, CRT;
VAR
 i,j:INTEGER;
 S:String;
 x,y:Real;

BEGIN
 InitGraph (i,j,'');
 Line(40,420,640,420);
 Line(40,420,40,20);
 SetTextStyle(DefaultFont,HorizDir,1);
 SetTextJustify(CenterText,TopText);
 OutTextXY(40,430,'0');
 FOR i:=1 TO 5 DO
  begin
   Line(40+i*100,420,40+i*100,410);
   Str(i/2:3:1,S);
   OutTextXY(40+i*100,430,S+'*Pi');
  end;

 SetTextJustify(RightText,CenterText);
 FOR i:=0 TO 10 DO
  begin
   Line(40,420-i*40,50,420-i*40);
   Str(0.1*i:3:1,S);
   OutTextXY(35,420-i*40,S);
  end;

 SetLineStyle(SolidLn,0,ThickWidth);
 MoveTo(40,420);
 x:=0;
 For i:=1 to 600 do
  begin
   x:=x+Pi/200;
   y:=SQR(Sin(x));
   LineTo(40+Round(x*200/Pi),Round(420-y*400));
  end;
 ReadKey;
 CloseGraph;
END.