콘솔로 그냥 간단한 프로그램 짜는건데...
잘안되네여 고수님들 좀 가르쳐 주세여!!

문제
메뉴를 출력하고 사용자로부터 입력을 받아 선택된 메뉴를 출력하는 프로그램을 작성하시오!

Choose one of the following
apple
orange
banana
peach
Enter your choice here : 사용자 입력(apple)
Your choice is "apple"

제가 콘솔로 짠 소스입니다!!

좀 수정좀 부탁드려요

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  System,
  Dialogs,
  StdCtrls;

var
strA: String;
strTemp: String;
A: Integer;
begin
  Write('Choose one of the following. apple   orange   banana   peach '  +#13#10);

  Write('Enter your choice here A: '+#13#10);
  ReadLn(strA);
  A:= StrToInt(strA);

  if (strA = 'apple') then begin
  end
  else if (strA = 'orang') then begin
  end
  else if (strA = 'banana') then begin
  end
  else if (strA = 'peach') then begin
  end;

  Write('Your choice is "strA".');


  ReadLn(strTemp);
  { TODO -oUser -cConsole Main : Insert code here }
end.