Tugas 8 Karakter Linier

Program Linier_Search;

uses crt;
const
n = 10;
var
data : array [1..n] of string[1];
nama : string[n];
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 ('Character yang dicari : ');readln(item);
writeln ('Keterangan : ');
Loc:=0;
for x:=1 to length(nama) do
begin
Loc:=Loc+1;
if data[x] = item then
writeln (' ',data[x],' ada diposisi ke- ',Loc);
end;

x:=1;
if Loc = x then
writeln ('Character ',item,' tidak ada');

readln;
end.