Pascal. Решите пожалуйста задачу!

Pascal. Решите пожалуйста задачу!
С клавиатуры вводится длинное число, которое имеет нечетное количество цифр не менее 50. Найти среднюю цифру числа, если она четная, то поменять ее на 0; если она нечетная, то поменять на 9. Вывести полученное число.

  • а это в Паскале
    uses crt;
    var a, b: integer;
    st : string;
    begin
    write('chislo '); readln(st);
    a:= length(st) div 2;
    inc(a);
    b := ord(st[a]); writeln(a);
    if b mod 2 = 0 then st[a]:='0'
    else st[a]:='9';
    writeln(st);
    readkey;
    end.
  • Сие делалось для Дельфи, но для Паскаля адаптировать проблем не должно быть:

    procedure TForm1.Button1Click(Sender: TObject);
    var a, b : integer;
    st : string;
    begin
    st:=edit1.Text;
    a:= length(st) div 2;
    inc(a);
    b := StrToInt(st[a]);
    if b mod 2 = 0 then st[a]:='0'
    else st[a]:='9';
    label1.Caption:=st;
    end;

    Скажу кому что Саше Грей помогал с информатикой, хрен же поверят )))))))))))))))