ski=record
		sifra,broj:integer;
		duzina:real;
		sled:pok;
	end;