procedure readfile;
begin
assign(mag,'mfile.dat');
reset(mag);
pointer:=1;
readln(mag,name[pointer]);
while not eof(mag) do
begin
readln(mag,price[pointer]);
pointer:=pointer+1;
readln(mag,name[pointer]);
end;
nomags:=pointer-1;
end;

procedure display;
begin
writeln('Please enter the name of the magazine');
readln(magnam);
for pointer:=1 to nomags do
begin
if name[pointer]=magnam then
begin
writeln(name[pointer],' costs ',price[pointer]:6:2);
key:=readkey;
end;
end;
end;

procedure displayall;
begin
clrscr;
pointer:=1;
for pointer:=1 to nomags do
begin
writeln('name ',name[pointer],' price ',price[pointer]:6:2);
end;
key:=readkey;
end;

procedure menu;
begin
writeln('`1` Display All Magazines');
writeln('`2` Display Selected Magazine');
writeln('`3` Exit');
readln(option);
case option of
1: begin
displayall;
end;

2: begin
display;
end;

3: begin
exit:=true;
end;
end;
clrscr;
end;

------------------
____________
Scouse Git[1]

The thread author is "Boz", Dickens wrote a book entitled "Sketches by Boz" hence my suggestion that sketching would perhaps be more suited to a CIV forum than a magazine price look-up table. Although I must admit it would not be much more suited...

------------------
____________
Scouse Git[1]