Нужно отредактировать код,привести его к рабочему виду. Работа с классами( Делфи ХЕ5)

[нуб7]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const s:string='12+456';
type MyClass = class
    Number1,Number2:integer;
    Operation:char;
    procedure Opredelenie(a:string);
    function Rastshet():integer;
end;
procedure MyClass.Opredelenie;
    var i,n:integer; buf:string;
begin
    n:=length(a);
    for i:=1 to n do
begin
    if ord(a[i]) in [48..57] then buf:=buf+a[i] else break;
end;
    Number1:=strtoint(buf);
    delete(a,1,length(buf));
    buf:='';
    Operation:=Chr(Ord(a[1]));
    delete(a,1,1);
    Number2:=StrToInt(a);
end;
function MyClass.Rastshet;
begin
    case Operation of
    '+':Rastshet:=Number1+Number2;
    '-':Rastshet:=Number1-Number2;
end;
end;
    var MC:MyClass;
begin
    writeln('Stroka s: ',s);
    MC.Opredelenie(s);
    writeln('Rezultat: ',s,' = ',MC.Rastshet);
end.

Само задание: На основе строки вида 12+456 создать класс с полями Number1:integer; Number2:integer; Operation:char; Написать в классе функцию,вычисляющую результат операции и показать результат ее выполнения на экране. Кто поможет?

From Stilet: Я поправил оформление.

[indexx]

Проформатированиекодаслышал?

[нуб7]

Сообщение от indexx

Проформатированиекодаслышал?

нетнеслышал.

[Stilet]

Кто поможет?

Что, предидущая тема оказалась успешно забита по студентским канонам?

[indexx]

Ну так послушай. Или точнее почитай
http://citforum.ru/programming/delphi/style_delphi/

[нуб7]

Сообщение от Stilet

Что, предидущая тема оказалась успешно забита по студентским канонам?

не прокатило..

[Stilet]

Почему думаешь что эта тема чем-то отличается?
Ответы будут те же самые.
Хотя все равно не поймешь... Ну да ладно. Рассказывай что именно не так в программе )

[нуб7]

Проект не запускается: выдает ошибку и просит закрыть программу. Препод сказал,что ошибка простая. Никто из одногруппников так и не понял, в чем дело. А сам я нифига не понимаю в программировании.

[Stilet]

Никто из одногруппников так и не понял, в чем дело.

Отвечает Олександер Грусть:

 
begin
    writeln('Stroka s: ',s);
    With MyClass.Create do begin 
      Opredelenie(s);
      writeln('Rezultat: ',s,' = ',Rastshet);
      Free;
    end;
end.

Готовь сову.

[Serge_Bliznykov]

дополню ответ Олександра Грустя вариантом с использанием переменной - экземляра класса:

var 
  MC : MyClass;
begin
   writeln('Stroka s: ',s);

   MC := MyClass.Create; // вы забыли создать объект

   MC.Opredelenie(s);
   writeln('Rezultat: ',s,' = ',MC.Rastshet);
   MC.Free; 
end.

а ещё нужно обязательно иницилизировать пустой строкой переменную buf:

    var i,n:integer; buf:string;
begin
    n:=length(a);
    buf := '';
    for i:=1 to n do

если совы закончились, то мне хотя бы хрустального попугая..