Tugas 8 Spasi Linier

Program Spasi_Linier;

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);

loc:=1;
while (data[loc] <> ' ') and (loc<=x) do
loc:=loc+1;

write('Keterangan : ');
if loc>=x then
write('Spasi tidak ditemukan')
else
write('Spasi ada dilokasi ',loc');

readln;
end.