Цвет фона в блокноте.

[Alexxx92]

Пишу курсовую на паскале.

Программа блокнот:

как можна поменять цвет фона самой программы (блокнот)....
не самого окна в паскале а екзешника.
Буду очень благодарен за код.
и если не сложно напишите куда его вставлять.

[OCTAGRAM]

Сначала делаешь TextBackround(цвет), потом ClrScr. Это зальёт экран нужным цветом.

[Alexxx92]

program Kyrsova;
uses Dos,Crt;
var
f :text;
FileName :string[9];
st :string;
ch :char;
vubir :byte;
TextBackround(цвет)
procedure Head;
begin
Writeln('jaks4o vu vidmovljetes vid dii, to naberit v nazvi fajla sumvol"~"');
Write('Vvedit imja fajla:>');
Readln(FileName);
if FileName='~' then halt(1)
else Assign(f,FileName);
end;

procedure TextEdit;
begin
Writeln('Teper vu zmozhete dobavljatu informaciju v fajl.');
Writeln('Jaks4o vu zaho4ute prupunutu vvid, to naberit sliduju4y poslidovnistst:"~~"');
repeat
Write('>');Readln(st);
if st<>'~~' then Writeln(f,st);
until st='~~';
end;

procedure WriteToFile;
begin
Head;
ReWrite(f);
TextEdit;
Close(f);
Writeln('Vu zakin4ulu vvodutu iformacijy v fajl. Nazhmit byd yaky knopky...');
ReadKey;
end;

procedure ReadFromFile;
begin
Head;
{$I-}
Reset(f);
{$I+}
if IOresult<>0 then begin
Writeln('Fajla ',FExpand(filename),' nesuwestvuet.');
Writeln('Ho4ete vvestu druge imja fajla?(Y/N).');
ch:=ReadKey;
if (ch='Y') or (ch='y') then ReadFromFile;
end
else begin
Writeln('Zmist fajla:');Writeln;
while not eof(f) do begin
Readln(f,st);
Writeln('>',st);
end;
Close(f);
Writeln;
Writeln('Natusnit byd yaky klavishy');
ReadKey;
end;
end;

procedure AddToFile;
begin
Head;
{$I-}
Append(f);
{$I+}
if IOresult<>0 then begin
Writeln('Fajla ',FExpand(filename),' nesuwestvuet.');
Writeln('Ho4ete vvestu dryge imja faily?(Y/N).');
ch:=ReadKey;
if (ch='Y') or (ch='y') then AddToFile;
end
else begin
TextEdit;
Close(f);
Writeln('Vu zakin4ulu vvodutu iformaciju v fajl. Natusnit byd yaky knopku...');
ReadKey;
end;
end;

procedure DelFile;
begin
Head;
{$I-}
Reset(f);
{$I+}
if IOresult<>0 then begin
Writeln('Fajla ',FExpand(filename),' nesuwestvuet.');
Writeln('Ho4ute vvestu drugr imja fajla?(Y/N).');
ch:=ReadKey;
if (ch='Y') or (ch='y') then DelFile;
end
else begin
Writeln('Vy vpevneni, s4o ho4ute vudalutu cey fajl?(Y/N)');
ch:=ReadKey;
if (ch='Y') or (ch='y') then Erase(f);
Writeln('Vu tilku s4o Vudalulu fajl. Natusnit na ljubu klavishu..');
Readkey;
end;
end;

procedure Menu;
begin
repeat
repeat
ClrScr;
Writeln('1. Zapus v fajl / stvorennya fajla');
Writeln('2. Vidkrutu fajl');
Writeln('3. Dodavannya informacii v fajl');
Writeln('4. Vudalennya fajla');
Writeln('5. Vuhod');
Write('Vash vubir:>');Readln(vubir);
until (vubir>0) and (vubir<6);
Writeln;
Write('Vy obralu : ');
case vubir of
1:begin
Writeln(' Zapus v fajl / stvorennya fajla');
WriteToFile;
end;
2:begin
Writeln('Vidkrutu fajl');
ReadFromFile;
end;
3:begin
Writeln('Dodavannya informacii v fajl');
AddToFile;
end;
4:begin
Writeln('Vudalennya fajla');
DelFile;
end;
end;
until vubir=5;
end;
begin
Menu;
end.

[Alexxx92]

Вот код....

куда нужно вставить "бекграунд"

[OCTAGRAM]

Перед ClrScr.

P. S. Украинский транслитом — это жутко.