var
   NekiTxtFajl : TextFile;
   bafer1,bafer2 : string[5];
begin
   AssignFile(NekiTxtFajl, 'c:\autoexec.bat');
   Reset(NekiTxtFajl);
   ReadLn(NekiTxtFajl, bafer1,bafer2);
   ShowMessage(bafer1 + ' ' +bafer2);
   CloseFile(NekiTxtFajl);
end;