Avtomatika va elektrotexnologiya

type 
TPStudent = ^TStudent; // TStudent  tipidagi o‘zgaruvchiga ko‘rsatkich 
// ro‘yxat element tiplarining berilishi 
TStudent = record 
surname: string[20]; // familiya 
name: string[20];' // ismi 
group: integer; // guruhi  
address: string[60]; // uy manzili  
next: TPStudent; // navbatdagi elementga ko‘rsatkich  
end; 
var 
head: TPStudent; // birinchi elementga ko‘rsatkich  
Ma‘lumotlarni royxatning boshiga, oxiriga yoki kerakli joyiga qo‘shish mumkin. Bunday 
xolatlarning  barchasida  ko‘rsatkichni  o‘zgartirish  kerak.  Ma‘lumotni  ro‘yxatning  boshiga 
qo‘shish jarayoni tasvirlangan. 
Ro‘yxatga ikkinchi element qo‘shilgandan keyin head shu elementni ko‘rsatadi.