создать exe файл из pas

[Денис999]

Нужен екзешник к моей программе. подскажите как его сделать!

{             ****************************
              Џа®Ја¬* Їа®б¬®ва* PCX-д*©«®ў
              ****************************
}
uses Dos, crt, P_Sharp, Graph;
const number_item = 3;
  MaxBufLen = 65520;
var c: char;
  i: integer;

procedure out_menu(flag: integer);
var f_1, f_2, f_3: byte;
begin
  f_1 := 1;
  f_2 := 1;
  f_3 := 1;
  if flag = 1 then f_1 := 16;
  if flag = 2 then f_2 := 16;
  if flag = 3 then f_3 := 16;

  textcolor(f_1);
  gotoxy(30, 8);
  writeln('File');
  textcolor(f_2);
  gotoxy(30, 10);
  writeln('EDIT');
  textcolor(f_3);
  gotoxy(30, 12);
  writeln('HELP');
  textcolor(1);
  gotoxy(1, 1);
  writeln('Esc-exit,down arrow-down, up arrow-up, Enter-enter');
end;

procedure file_;  {ЋвЄалвЁҐ д*©«*}
Var
 VgaDrv, Mode : Integer;
 name : string;
begin
window(20,5,56,15);
textbackground(7);
clrscr;
  writeln('Џ®¦*©«гбв* гЄ*¦ЁвҐ ўҐа*л© Їгвм Ё Ё¬п д*©«*!');
  Write('File name : ');
  ReadLn(name);
  name := name + '.pcx';
  VgaDrv:= InstallUserDriver('SVGA256',@VgaDrv); Mode:= 2;
  InitGraph(VgaDrv, Mode, '');
  ReadPCXfile(name, 0, 0);
  ReadKey;
  CloseGraph;
  window (1,1,80,25);
textbackground(13);
end;
{Џа®жҐ¤га* edit ᮤҐа¦Ёв ў ᥡҐ Ё*д®а¬*жЁо ®
а*§а*Ў®взЁЄҐ Їа®Ја*¬¬л}
procedure Developer;
begin
window(20,5,56,15);
textbackground(3);
clrscr;
writeln('ARROW TO THE LEFT for exit to main menu');
writeln; writeln;
textcolor(8);
writeln('„****п Їа®Ја*¬¬* Ўл«* а*§а*Ў®в*** бв㤥*⮬ ЈагЇл Љ‘Њ 09-2 Ѓ®*¤*ॢЁ¬ „Ґ*Ёб®¬.');
writeln;
write('Ј.ЉаЁў®© ђ®Ј, Љ’“, 2010 Ј®¤.');
repeat
until readkey=#075;
window (1,1,80,25);
textbackground(13);
end;
{Џа®жҐ¤га* help ᮤҐа¦Ёв Ї®пб*ЁвҐ«м*го §*ЇЁбЄг}
procedure help;
begin
window(10,7,60,20);
textbackground(3);
clrscr;
writeln('Arrow to the left for EXIT to main menu');
writeln;
textcolor(5);
writeln('ќв® Їа®Ја*¬¬* звҐ*Ёп Ё ®вЄалвЁп Ја*дЁзҐбЄЁе PCX-д*©«®ў.');
write('€§®Ўа*¦Ґ*ЁҐ ¤®«¦*® Ўлвм 16-⨠梥в*л¬.');
writeln('ђҐ¦Ё¬* EGA Ё«Ё VGA, 256-⨠梥в*л¬ «п ०Ё¬* MCGA.');
textcolor(8);
writeln('„«п ®вЄалвЁп д*©«* §*ЇгбЄ*Ґвмбп Їг*Єв ¬Ґ*о - File, Ј¤Ґ');
writeln('гЄ*§лў*Ґвмбп Ё¬п Ё ¬Ґбв®а*бЇ®«®¦Ґ*Ёп д*©«*.');
write('„«п §*ЄалвЁп Ё§®Ўа*¦Ґ*Ёп - ENTER.');
write('„«п ўл室* ў Ј«*ў*®Ґ ¬Ґ*о ESC+ARROW TO THE LEFT.');
write('„«п ЇҐаҐ¤ўЁ¦Ґ*Ёп Ї® Їг*Єв*¬ ¬Ґ*о ЁбЇ®«м§г©вҐ Є«*ўЁиЁ ўўҐае,ў*Ё§.');
write('„«п ўл室* Ё§ Їа®Ја*¬¬л - ESC.');
repeat
until readkey =#075;
window(1,1,80,25);
textbackground(13);
end;

begin
i:=1;
textbackground(13); { “бв**®ўЄ* 梥в* д®** }
clrscr;
repeat
clrscr; { ЋзЁбвЄ* нЄа*** }
if (i>number_item) or (i<1) then i:=1;
out_menu(i); { ‚лў®¤ ** нЄ*а** Ј«*ў*®Ј® ¬Ґ*о }
c:=readkey; { €¤Ґв бзЁвлў**ЁҐ **¦*вле Є«*ўЁим }
writeln(c);
if c=#080 then i:=i+1; { …б«Ё **¦*в* Є«*ўЁи* ў*Ё§ ... }
if c=#072 then i:=i-1; { …б«Ё **¦*в* Є«*ўЁи*ўўҐае... }
if c=#13 then { …б«Ё **¦*в* Є«*ўЁи* Enter... }
case i of
1:file_;
3:Help;
2:edit;
4:Exit;
end;

until c=#27;
end.

[ex.cluz]

Скомпиллировать...

[Ponkole]

Я был полным чаиником и если непонятно то...
Если я не ошибаюсь вы работаете в паскале, компиляция происходит слдующим образом: в владке Compile переставить на Disk там где написано Memory и в той же вкладке нажать Make, после чего в той папке, где находится Pas фаил, появится exe файл.

[Денис999]

У меня ниче не получаеться! Он его создает, но он не работает!

[Денис999]

Да он та создаеться, но не работает, когда вводишь адрес и имя файла он тупо выключаеться!

[Ponkole]

Без проблем в конце основного кода прям перед end поставь Readln; readln должно сработать