[mohnaty_shmel]

вот я пытался объявить функции, но не вышло

Код:

 procedure Get_image_size(input_frame: char;  width: integer; height: integer); stdcall;
  procedure Read_image(fname: char;  pdat: Byte); stdcall;
  procedure Cal_psnr(pOrig: Byte;  pImg: Byte;  width: integer;  height: integer); stdcall;
  function Write2PGM(pImg: Byte;  width: integer;  height: integer;  fname: char): pImg; stdcall;