Комментирование кода

uses crt;
    label P1,P2,P3;
    var s,st,slovo:string;
    i:integer;
    q,t:char;
    f,p: text;
function palindrom(arg:string):boolean;
var i:byte;st:string;
 
 
begin
  palindrom:=false;
  st:='';
  for i:=length(arg) downto 1 do
    st:=st+arg[i];
  if st=arg then palindrom:=true;
end;
 
 
begin
P1:
clrscr;
        Writeln('                      Московский авиационный институт');
        Writeln('                 (национальный исследовательский университет) ');
        Writeln('       факультет №3 "Системы управления, информатика и электроэнергетика" ');
        Writeln('                              Программа "Палиндром"');
        Writeln('           Выполнил студент группы ');
        writeln('');
        writeln('');
  writeln('Нажмите 1 для ввода вручную, 2 - для считывания текста из файла');
q:=readkey;
case q of
'1': begin
 
 
clrscr;
  writeln('Введите слова через пробел');
  readln(s);
  writeln('Наибольшее слово-палиндром в веденном тексте: ');
  if s[length(s)]<>' ' then
    s:=s+' ';
  slovo:='';st:='';
    for i:=1 to length(s) do begin
    if s[i] in ['a'..'z'] then s[i]:=Upcase(s[i]);
if s[i] in ['а'..'я'] then s[i]:=Upcase(s[i]);
end;
  for i:=1 to length(s) do begin
    if s[i]<>' ' then
      slovo:=slovo+s[i]
    else begin
      if palindrom(slovo) then
        if length(st)<length(slovo) then
          st:=slovo;
      slovo:='';
    end;
  end;
            writeln('');
        writeln('');
  writeln(st);
end;
end;
case q of '2':
begin
 assign (f,'Новый текстовый документ.txt');
    reset(f);
  read(f,s);
    for i:=1 to length(s) do begin
    if s[i] in ['a'..'z'] then s[i]:=Upcase(s[i]);
if s[i] in ['а'..'я'] then s[i]:=Upcase(s[i]);
end;
 
  writeln('Наибольшее слово-палиндром в веденном тексте: ');
          writeln('');
        writeln('');
  if s[length(s)]<>' ' then
    s:=s+' ';
  slovo:='';st:='';
  for i:=1 to length(s) do begin
    if s[i]<>' ' then
      slovo:=slovo+s[i]
    else begin
      if palindrom(slovo) then
        if length(st)<length(slovo) then
          st:=slovo;
      slovo:='';
    end;
  end;
        Write(st);
end;
  end;
Writeln('');
 writeln('');
  writeln('');
Writeln('Нажмите 1 для возвращения в меню,');
Writeln('Нажмите 2 для завершения работы и сохранения результатов');
Writeln('Нажмите 3 для завершения работы без сохранения результатов');
  t:=readkey;
  case t of
  '1':goto P1;
  '2':goto P2;
    '3': ;
    end;
  P2:
  begin
assign(p, 'Stats_Pal.txt');
Rewrite(p);
Writeln(p,'                      Московский авиационный институт');
Writeln(p,'                 (национальный исследовательский университет) ');
Writeln(p,'       факультет №3"Системы управления, информатика и электроэнергетика" ');
Writeln(p,'                              Программа "Палиндром"');
Writeln(p,'               Выполнил студент группы  ');
Writeln(p,' ');
Writeln(p,' ');
Writeln(p,' ');
Writeln(p,'Наибольшее слово-палиндром в веденном тексте:  ',st);
Close(p);
end;
end.