Delphi блок-схема.

[Rustafa13]

Всем привет.
Ребята, помогите сделать блок-схему, на телефон кину денюшку.

Собственно, задача простая, но блок-схемы, я догадываюсь, но все-таки не знаю. Спасибо.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
f:textfile;
nq:integer;
right:integer;
level:array[1..4] of integer;
mes: array[1..4] of string;
buf:string;

function nextqw:boolean;
begin
if not eof(f) then begin
readln(f,buf);
form1.Label1.Caption:=buf;

readln(f,buf);
form1.label2.caption:=buf;
readln(f,buf);
form1.RadioButton1.Tag:=strtoint(buf);

readln(f,buf);
form1.Label3.Caption:=buf;
readln(f,buf);
form1.RadioButton2.Tag:=strtoint(buf);

readln(f,buf);
form1.Label4.caption:=buf;
readln(f,buf);
form1.RadioButton3.tag:=strtoint(buf);

readln(f,buf);
form1.label5.caption:=buf;
readln(f,buf);
form1.RadioButton4.Tag:=strtoint(buf);

nq:=nq+1;

form1.Button1.Enabled:=false;
form1.RadioButton1.checked:=false;
form1.RadioButton2.checked:=false;
form1.RadioButton3.checked:=false;
form1.RadioButton4.checked:=false;

nextqw:=true;
end
else
nextqw:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
fname:string;
begin
fname:=paramstr(1);
if fname='' then
begin
showmessage('В командной строке запуска программы' + #13 + 'надо указать имя файла теста');
application.terminate;
end;
assignFile(f,fname);

try
reset(f);
except
on eInouterror do
begin
showmessage('ошибка обращения к файлу теста:' + fname);
application.terminate;
end;
end;

readln(f,buf);
form1.caption:=buf;

for i:=1 to 4 do
begin
readln(f,buf);
mes[i]:=buf;
readln(f,buf);
level[i]:=strtoint(buf);
end;

right:=0;
nq:=0;
nextqw;


end;

procedure TForm1.Button1Click(Sender: TObject);
var
buf:string; i:integer;
begin
if button1.caption='завершить' then close;

if radiobutton1.Checked then
right:=right + radiobutton1.tag;
if radiobutton2.Checked then
right:=right + radiobutton2.tag;
if radiobutton3.Checked then
right:=right + radiobutton3.tag;
if radiobutton4.Checked then
right:=right + radiobutton4.tag;

if not nextqw then begin
button1.caption:='завершить';
radiobutton1.Visible:=false;
radiobutton2.Visible:=false;
radiobutton3.Visible:=false;
radiobutton4.Visible:=false;
label2.Visible:=false;
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;

buf:='тестирование завершено' + #13 + 'правильных ответов' + inttostr(right)+ 'из' + inttostr(nq) + '.' + #13;
i:=1;
while (right<level[i]) and (i<4) do
inc(i);
buf:=buf+mes[i];

label1.autosize:=true;
label1.caption:=buf;
end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
button1.enabled:=true;
end;


procedure TForm1.RadioButton2Click(Sender: TObject);
begin
button1.enabled:=true;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
button1.enabled:=true;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
button1.enabled:=true;
end;

end.

[Alex11223]

А на вебмани или ЯД кинешь?)

[Rustafa13]

Сообщение от Alex11223

А на вебмани или ЯД кинешь?)

не обещаю, на телефон 100% завтра. Сегодня физически не могу, готовлю отчет. Все сделал, а с блок-схемой проблема. Не обману.

[Rustafa13]

ПОМОГИТЕ! РЕБЯТ! КИНУ ДЕНЮШКУ НА ТЕЛЕФОН!

[Alex11223]

Не обману.

Чем докажите?)

а телефон 100% завтра. Сегодня физически не могу, готовлю отчет.

Так ведь выйти пополнить счет\кошелек мин 15-20 займет максимум. Впрочем как и блок схему нарисовать.

[Rustafa13]

Сообщение от Alex11223

Чем докажите?)

Так ведь выйти пополнить счет\кошелек мин 15-20 займет максимум. Впрочем как и блок схему нарисовать.

на слово. ) Нарисуйте пожалуйста. Завтра, максимум до 15.00. Мне как раз за интернет завтра нужно заплатить.

[Alex11223]

Я живу не в РФ и вы вряд ли сможете кинуть мне на телефон даже если я поверю на слово)

[mss]

на слово

Твоя фамилия случаем не Бендер ?)

[Rustafa13]

Сообщение от mss

Твоя фамилия случаем не Бендер ?)

нет.
Ну что ребят, сделает кто нибудь?

[Rustafa13]

Сообщение от Alex11223

Я живу не в РФ и вы вряд ли сможете кинуть мне на телефон даже если я поверю на слово)

мне до сбербанка далековато. Впадлу идти + у меня еще дела есть. А Вы, могли бы уже сделать и не ломаться, а завтра я бы вам закинул на счет на ЯД. Сейчас у меня там 7р, могу внести предоплату.