The fcilowing prograsns shauid be studied carečuily 1 ou re vr. any zovot as to hiw to ptzprar -
Hiisof" Pascal ST.
%Prcoram to illustrate the use of TIN ac TOJT.

Tne program conistructs a very simple telepnone .

čirectory on tape arid then: reads it back. Yow

shovld write any searching regulired.>

PROGRAM TAPE;

COMST
Sizesi0;

TYPE
Entry » RECORD.
Name % ARRAY C1..101 OF CHAR;
Number ; ARRAY lCi..10I DF CHAR

wB ENO; ,

VAR š
Directory ' ARRAY C1..Size) OF Entry;
I : INTEGCER; vii ; ;
.
EEGIN -
1

Set up the directory,.?

FOS I;s 1 TO Size DO
EECIN
WITH DirectorslIJ 00
EEGIN
HRI TE('Name please');
REROLN;
EN O O Ee : |
" "MRITELN)
HETTE('Htovmoer zlease'!; |
RSADLN; ;
ib  REAZ(Numder);
kKRITELN
END |
ZNI; |

V OE, uno sa se umom s so S ma ao EI ME V RA Aae

v
|
|
|
H
j
i
l
Hi
4

i
metno o AED NJOČJA S.ga z o

TS OVNEP: the directare io vapk is2a..:
TOUTU'Direetoit, DEK ŽI ec x... IE rei dra

hous to read the srrzy čac" dz
TZN('Director',NaDDR(Dirsetor-))

TAČ NOW 4YOV Cafi Process zne direčtoru 3$ JO: uiST.aLLe s

ENO.

e
J
a
v
.4
.
a
1.
..
[4
.
.
.,
> MN AJA Po, Na A REJ MRENE NJE PANJI" MRVAR ST sneg og tva oman o sa sa menom on o

nave O ana A ma z NO MN TNREOMINNEMEE PONEA EEA NO v AVE
o Daobone sev O

ee