Задача : С клавиатуры вводится строка,определить является ли она палиндромом.Заранее спасибо :)(задачу нужна сделать на уровне 9 класса)в строке VAR только string и integer!!!)))

var st: string [80];     i, dl, f: integer; begin   readln (st);   f := 1;  i := 1;   dl := length(st);    while (i <= dl) and (f = 1) do      begin        if (st[i] = st[0-i+1+dl]) then f := 1 else f := 0;        inc(i);      end;    if (f = 0) then writeln('Да') else writeln('Нет'); end. Немного изменил вариант из учебника под условие=)