Выбор из массива

[vasya 684]

Посмотрите код, почему-то не работает, нужно, чтобы если пользователь ввел слово, и оно есть в массиве то его об этом уведомляют

program test;
uses crt;
const
futbolisty : array[1..11] of string = ('Ари', 'Веллитон', 'Эменике', 'Жано', 'Комбаров', 'Паршивлюк', 'Макеев', 'Кариока', 'Де Зеув', 'Дикань', 'Пареха');
var
futbol : string;
user : string;
begin
randomize;
futbol := futbolisty[random(11) + 1];
writeLn('Футболисты Московского Спартака: ');
readLn(user);
if user = futbol then
 writeLn('Правильно!')
else 
writeLn('Нет такого игрока!');
sound(300);
delay(60000);
nosound;
readLn;
end.

[BDA]

program test;

uses
  crt;

const
  futbolisty: array[1..11] of string = ('Ари', 'Веллитон', 'Эменике', 'Жано', 'Комбаров', 'Паршивлюк', 'Макеев', 'Кариока', 'Де Зеув', 'Дикань', 'Пареха');

var
  i, k: integer;
  user: string;

begin
  writeLn('Футболисты Московского Спартака: ');
  readLn(user);
  k := -1;
  for i := 1 to 11 do
    if user = futbolisty[i] then
    begin
      k := i;
      break;
    end;
  if k > 0 then
    writeLn('Правильно!')
  else 
    writeLn('Нет такого игрока!');
  readLn;
end.

не подскажете как в свою программу поставить...

Не подскажу - никогда не использовал

[vasya 684]

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

uses GraphABC;                     
const 
Image_1 = '1.bmp';         
var 
     p : Picture;          
begin
    p := Picture.Create(Image_1);
    p.Load(Image_1);
    p.Draw(1,1);
    write('Привет!капкпавпавпвапавпапавпапапапавпап');
    readLn;
end.

[Serge_Bliznykov]

вообще-то, это уже совсем другой вопрос. Тем более, нужно указывать, что Вам Pascal ABC нужен..

ну да ладно, попробую Вам помочь советом..

возможно, Вас спасёт процедура
SetBrushStyle( bsClear );

да и выводить текст лучше через TextOut...

попробуйте:

uses GraphABC;


const 
  Image_1 = '1.bmp';         

var i: integer;
     p : Picture;          
begin
    p := Picture.Create(Image_1);
    p.Load(Image_1);
    p.Draw(1,1);

  SetBrushStyle( bsClear );

  SetWindowCaption('Шрифты');
  SetWindowSize(750,520);
  SetFontName('Arial');
  SetFontStyle(fsBoldItalic);
  for i:=4 to 15 do
  begin
    SetFontSize(2*i);
    SetFontColor(RGB(Random(255),Random(255),Random(255)));
    TextOut(50,2*i*i-15,'Pascal ABC');
  end;
end.