Динамика. Ошибка при компиляции.

[Imagine Dragons]

program i;
uses crt; 
type
  tStek = ^rStek;
  rStek = record
    Ch: Char;
    Next: tStek;
  end;

var
  Stek : tStek;

begin

  Stek := nil;


  begin
procedure Push(Ch : Char);
var
  Cur : tStek;
begin
  New(Cur);
  Cur^.Ch := Ch;
  Cur^.Next := Stek;
  Stek := Cur;
end;

function Pop : Ch;
var
  Cur : tStek;
begin
  if Stek = nil then
    Pop := #0
  else
    begin
      Pop := Stek^.Ch;
      Cur := Stek;
      Stek := Stek^.Next;
      Dispose(Cur);
    end;
end;
ReadLn(maxCh);
Assign(F, 'file.txt');
Reset(F);
while Not EOF(F) do
  begin
    ReadLn(F, Str);
    for i := 1 to Length(Str) do
      if Str[i] > maxCh then
       Push(Str[i]);
  end;
Close(F);
readln;
end.

В чем может быть ошибка?

[Аватар]

В том, что текст сообщения об ошибке не приводишь

[Imagine Dragons]

Illegal expression

[Serge_Bliznykov]

Это что за ужас, летящий на крыльях ночи?!!

begin   <<<<<- допустим, это начало тела основной программы
  Stek := nil;


  begin  <<<--- что за BEGIN ?! зачем он здесь?!

procedure Push(Ch : Char);  <<--- а это что?! В ТЕЛЕ программы НЕЛЬЗЯ описывать процедуры!!

[Serge_Bliznykov]

восстановил структуру и закомментировал код, который не откомпилируется, т.к. НЕ ОПИСАНЫ переменные.

получилось такое:

program i;
uses crt;
type
  tStek = ^rStek;
  rStek = record
    Ch: Char;
    Next: tStek;
  end;

var
  Stek : tStek;

procedure Push(Ch : Char);
var
  Cur : tStek;
begin
  New(Cur);
  Cur^.Ch := Ch;
  Cur^.Next := Stek;
  Stek := Cur;
end;

function Pop : Char;
var
  Cur : tStek;
begin
  if Stek = nil then
    Pop := #0
  else
    begin
      Pop := Stek^.Ch;
      Cur := Stek;
      Stek := Stek^.Next;
      Dispose(Cur);
    end;
end;


begin
  Stek := nil;
{  ReadLn(maxCh);
  Assign(F, 'file.txt');
  Reset(F);
  while Not EOF(F) do
    begin
      ReadLn(F, Str);
      for i := 1 to Length(Str) do
        if Str[i] > maxCh then
         Push(Str[i]);
    end;
  Close(F);
  readln; }
end.

А ещё, если есть вызов процедуры помещения символа в стек Push, почему нет вызова процедуры Pop, чтобы извлечь из стека помещённую туда информацию?
"ваша" программа банально НИЧЕГО не выведет в качестве результата...

[Аватар]

Там все не правильно, копипасте без мысли