program cari nama

uses wincrt;
type larik=array[1..20] of string;
var nama:larik;
i,n:byte;
cari:string;
cacah,posisi:byte;
ya:char;

begin
writeln('mengisi larik nama');

repeat
begin
inc(n);
write('isi nama berhenti isi xxx ');readln(nama[n]);
end
until nama[n]='xxx';
dec(n);{untuk menghilangkan nama terakhir yang berupa xxx}
clrscr;
for i:=1 to n do
writeln(i,' ',nama[i]);
writeln('mencari seseorang ');
repeat
begin
cacah:=0;
write('siapa yang akan dicari ? ');readln(cari);
for i:=1 to n do
begin
if nama[i]= cari then
begin
posisi:=i;inc(cacah);
writeln(cari,' ada di posisi ke ',posisi);
end;
end;
if cacah=0 then writeln('nama ',cari,'tidak ada didalam daftar')
else
writeln('nama ',cari,' ada ',cacah,' orang');
writeln;write('cari nama lain? ');readln(ya);
end
until (ya<>'y');
end.