Ошибка Неизвестное имя 'LoadPicture'

program upr1a;
uses crt,GraphABC;
var pic:integer;
begin
   SetWindowSize(500,500);
   ClearWindow(clwhite);
   pic:=LoadPicture('a.jpg');
   DrawPicture(pic,10,10,150,200);
   pic:=LoadPicture('b.jpg');
   DrawPicture(pic,170,10,150,200);
   pic:=LoadPicture('c.jpg');
   DrawPicture(pic,330,10,150,200);
end.

program upr1a;
uses GraphABC;
var pic : Picture;
begin
   SetWindowSize(500,500);
   ClearWindow(clwhite);
   pic:=Picture.Create('a.jpg');
   pic.Draw(10,10,150,200);
   pic.Load('b.jpg');
   pic.Draw(170,10,150,200);
   pic.Load('c.jpg');
   pic.Draw(330,10,150,200);
end.

program otkrytka ;
uses crt , GraphABC ;
var tema , ris:integer ; fzal , fris , s:string ;
begin 
SetWindowSize (600 , 400 );
 write ('Введите номер темы: 1-зима , 2-весна , 3-лето, 4-осень');
read (tema);
 write ('Введите поздравления ');
read (s);
 case tema of
  1:begin fzal:='snow.gif' ; fris:='buratino.gif' end;
 2:begin fzal:='sun.gif' ; fris:='popugai.gif' end;
  3:begin fzal:='daisy.gif' ; fris:='karlson.gif' end;
   4:begin fzal:='list.gif' ; fris:='lisa.gif' end;
   end ;
   clearwindow ;
   SetPenColor (clred);
   Rectangle (0,0,120,400);
   ris:=LoadPicture(fris);
  DrawPicture (ris,380,70,200,320);
 SetBrushStyle(bsClear);
SetFontColor (clgreen);
SetFontSize (34) ;
SetFontStyle (fsBold);
TextOut (60,40,s);
 
end.