Контрольная работа: Язык программирования Turbo Pascal

unit modul1;

interface

{uses wincrt,winprn;}

const n=40;

type

matr = array [1..n,1..n] of integer;

var k1,k2: integer;

procedure create (var b:matr;t:integer);

procedure vivod (b:matr;t:integer;x:integer);

function nomi(x:char;b:matr):integer;

function null(c:matr):integer;

procedure obrab (b:matr;var c:matr);

function FileExists(FileName: String): Boolean;

implementation

function FileExists;

var

F: file;

begin

{$I-}

Assign(F, FileName);

Reset(F);

Close(F);

{$I+}

FileExists := (IOResult = 0) and (FileName <> '');

end;

function null;

var k,i,j:integer;

begin

k:=0;