Tugas 6 Linier

Program Linier_Searching;

uses crt;
const
n = 10;

var
data : array [1..n] of string[1];
nama : string;
item : char;
loc, x, y : integer;

begin
clrscr;
write(' Nama Mahasiswa : ');readln(nama);
for x:=1 to length(nama) do
data[x]:=copy(nama,x,1);

write(' Huruf yang dicari : ');readln(item);
x:=1;
while (data[x] <> ' ') and (x<=n) do inc(x);
data[x] := item;
loc:=1;
while (data[loc])