data karyawan

program pascal_karyawan;
uses crt;
tdata=^data;
data:record
nik:string;
nama_karyawan:string;
alamat:string;
jabatan:string;
jenis_kelamin:string;
end;
var
        x:data;
        y:integer;
procedure jumlah;
write('masukan nama_karyawan');
readln(y);
End;

procedure:input_data;
var
         i:integer;
Begin
         for i=1 to y do
Begin
write('masukan nik');
readln(A.nik);
write('masukan nama_karyawan');
readln(A.nama_karyawan);
write('masukan alamat');
readln(A.alamat);
write('masukan jabatan');
readln(A.jabatan);
write('masukan jenis_kelamin');
readln(A.jenis_kelamin);
writeln('masukan nik',A.nik);
writeln('masukan nama karyawan',A.nama_karyawan);
writeln('masukan alamat',A.alamat);
writeln('masukan jabatan',A.jabatan);
writeln('masukan jenis kelamin',A.jenis_kelamin);
readln();
End;
End;

Begin

clrscr
            jumlah;
            input_data;
            readln;
End.