Zdravím,
nemůžu pořád přijít na to co je špatně, háže mi to chybu v hlavním programu na "var Z: Zasobnik;" že místo ";" očekává ".", díky za pomoc.
hlavni program:
program zasobnik;
uses modulzasobnik;
var Z: Zasobnik; { teď máme k dispozici zásobník řetězců }
R: string;
begin
Init(Z); { zásobník je připraven }
end.
modul:
unit modulzasobnik;
interface
type TypData=string;
UkPrvek = ^Prvek;
Prvek = record
Data: TypData;
Dalsi: UkPrvek
end;
Zasobnik = UkPrvek;
procedure Init(var Z: Zasobnik);
implementation
procedure Init(var Z: Zasobnik);
begin Z:=nil; end;
end.