код не работает, не могу исправить ошибки, не хватает знаний

[tattaa]

код для создания визитной карточки

uses GraphABC;

begin
  // изображение
    (new Picture('длясайта.bmp')).Draw(1, 1);
  end;

  // Визитка
var 
myvisitka: record
Name:string;
Famyli:string;
street:string;
home:integer;
kvartira:string;
telefon:string;
end;
Begin
myvisitka.Name:='БлинОК';
myvisitka.Famyli:='Жизнь плоха? Съешь блинка!';
myvisitka.street:='Домодедово, Советская 32';
myvisitka.telefon:='+7(925)600 04 61';
writeln('Название: ',myvisitka.Name);
writeln('Наш девиз: ',myvisitka.Famyli);
writeln('Адрес: ',myvisitka.street);
writeln('Контакты: ',myvisitka.telefon);
End;

  // звук 
program PlaySoundExample;
var
  sp: System.Media.SoundPlayer;
begin
  sp := new System.Media.SoundPlayer('music.wav');
  sp.Play();
  readln;
end.

[BDA]

uses GraphABC;

var
  sp: System.Media.SoundPlayer;
  myvisitka: record
    Name: string;
    Famyli: string;
    street: string;
    home: integer;
    kvartira: string;
    telefon: string;
  end;

begin
  (new Picture('длясайта.bmp')).Draw(1, 1);
  myvisitka.Name := 'БлинОК';
  myvisitka.Famyli := 'Жизнь плоха? Съешь блинка!';
  myvisitka.street := 'Домодедово, Советская 32';
  myvisitka.telefon := '+7(925)600 04 61';
  writeln('Название: ', myvisitka.Name);
  writeln('Наш девиз: ', myvisitka.Famyli);
  writeln('Адрес: ', myvisitka.street);
  writeln('Контакты: ', myvisitka.telefon);
  sp := new System.Media.SoundPlayer('music.wav');
  sp.Play();
  readln;
end.

Нужно просто весь код собрать в один begin..end блок.