Функции dos на Паскале

[Rise]

Помогите пожалуйста решить! Программу надо написать на Паскале используя функции Dos'а. Нельзя использовать crt, writeln, readln, clrscr, и т.д.
Программа считывает имя (ввод с клавиатуры) файла и выводит на экран его размер (файла) и дату последнего изменения.
Вывести ообщение об ошибке, если такого файла не найдено.

Что получилось...

Program Ex1;
uses dos,crt;
var
   Regs:Registers;
   s:string;
   d,r:byte;
Begin
    Regs.AH:=$0a;
    Regs.DS:=seg(s);
    Regs.DX:=ofs(s);
    s[0]:=chr(64);
    Msdos(Regs);

    d:=ord(s[1]);
    s[0]:=chr(13);
    s[1]:=chr(10);
    s[d+2]:='$';
    Regs.AH:=$09;
    Regs.DS:=seg(s);
    Regs.DX:=ofs(s);
    MsDos(regs);

    Regs.AH:=$4e;
    Regs.DS:=seg(s);
    Regs.DX:=ofs(s);
    Regs.CX:=;
    MsDos(Regs);
    {Regs.AH:=$4f;
    Regs.DS:=
    Regs.DX:=
    MsDos(Regs);}
End.