Скачиваний:
288
Добавлен:
04.03.2014
Размер:
333 б
Скачать
unit srch;

interface
procedure openfile (s: string);
procedure getchar (var c: char);
procedure closefile;

implementation
var f:text;

procedure openfile (s:string);
begin
assign (f,s);
reset (f);
end;

procedure getchar (var c:char);
begin
read (f,c);
end;

procedure closefile;
begin
close (f);
end;
end.
Соседние файлы в папке Alex