Помощь в написании программы по TURBO PASCAL

[Skuttbin]

Помощь в написании программы по TURBO PASCAL

Привет всем. Помогите пожалуйста в написании программы, просто я даже не представляю как это вообще сделать. За ранние спасибо.

Заполнить левую половину экрана синим цветом, правую - зеленым. Ввести строку с клавиатуры. Если в ней больше букв "a", чем букв "o", вывести в центре экрана слово "привет".

 

[Vladimir_S]

Заполнить левую половину экрана синим цветом, правую - зеленым. Ввести строку с клавиатуры. Если в ней больше букв "a", чем букв "o", вывести в центре экрана слово "привет".

И это в текстовом режиме, через CRT? Или в графическом? Вообще-то в текстовом экране я тоже не очень представляю себе, как это сделать.

 

[Skuttbin]

Скорей всего все таки в графическом

 

[Vladimir_S]

Скорей всего все таки в графическом

Во черт, а я таки в текстовом ухитрился соорудить! Гляньте, может быть, подойдёт.
Но! Внимание! Предупреждаю сразу: НИКАКОЙ КИРИЛЛИЦЫ! Заморачиваться с разными кодировками, извините, не буду. Посему и слово вводить латиницей, и на экране будет "Hello!", а не "Привет". Уж извините. У меня DOS, у Вас наверняка Windows версии Паскаля, кодировки там разные, в общем, ну их!

Uses CRT;
Var
 S:String;
 Na,No,i,j:Byte;
Begin
 NormVideo;
 ClrScr;
 Write('Enter the word: ');
 Readln(S);
 Na:=0;
 No:=0;
 For i:=1 to Length(S) do
  begin
   if S[i]='a' then Inc(Na);
   if S[i]='o' then Inc(No);
  end;
 ClrScr;
 TextBackground(2);
 For i:=1 to 25 do
  For j:=40 to 80 do
   begin
    GotoXY(j,i);
    Write(' ');
   end;
 TextBackground(1);
 For i:=1 to 25 do
  For j:=1 to 40 do
   begin
    GotoXY(j,i);
    Write(' ');
   end;
 If Na>No then
  begin
   TextBackground(0);
   textcolor(14);
   gotoXY(38,12);
   write('Hello!');
  end;
 NormVideo;
 ReadKey;
End.

 

[Skuttbin]

Спасибо большое за помощь в написании этой программы)))