Tugas Prak.Struktur Data

uses crt;
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
    i: integer;
    kalimat: s255;
         procedure awalan(var t: tumpukan);
         begin
          t.atas:=0;
          end;
    procedure push (var t:tumpukan; x: char);
    begin
    t.atas:=t.atas+1;
    t.isi[t.atas]:= x;
    end;
function pop(var t:tumpukan):char;
begin



pop:=t.isi[t.atas];
t.atas:=t.atas-1;
end;
(*program utama*)
begin
clrscr;
awalan(t);
writeln('Tumpukan untuk membalik kalimat');
writeln('*******************************');
writeln;
write('ketik kalimat: '); readln(kalimat);
clrscr;
writeln('kalimat asli: ',kalimat);
writeln;
writeln('setelah operasi push dan pop');
for i:= 1 to length(kalimat) do
push(t, kalimat[i]);
for i:= 1 to length(kalimat) do
write(pop(t));
readln;
end.