калькулятор Опции

[Yurka]

Напишите программу, что имитирует экран калькулятора, другими словами, нужно, чтобы в ней после введения целого числа меньше 10 (|N | < 10) из клавиатуры вид этой цифры отображался на дисплее. Символ числа должен появляться сразу после ввода фигуры числа

Изображение каждой фигуры или отметки появляется с помощью включения/выключения семи элементов жидкокристаллического дисплея. Состояние программы-дисплея должно отображаться с помощью символов '\' (вертикальная опция), 'J (подчеркивание) и '' (пусто). Цифры и символы минуса должны отображаться следующим образом:
Введение: Файл ввода включает целые числа N (|Nj<1010), одно число в линейке.
Выведение: Исходный файл включает три строки с символическим рисунком дисплея, отдельным на каждую цифру.

Вот такая вот задача. Чесно говоря первая половина вроде понятна, а вот вторая с дисплеем

[klem4]

Вот такая кака получилась, ттолько тут число адо вводить сразу :

uses crt;

type

   TDigit = array[1..7] of string[5];

const

   one:TDigit =

   ('|','|','|','|','|','|','|');

   two:TDigit =
   (' ---','    |','    |',' ---','|','|',' ---');

   thre:TDigit =
   (' ---','    |','    |',' ---','    |','    |',' ---');

   four:TDigit =
   ('|   |','|   |','|   |',' ---','    |','    |','    |');

   five:TDigit =
   (' ---','|','|',' ---','    |','    |',' ---');

   six:TDigit =
   (' ---','|','|',' ---','|   |','|   |',' ---');

   seven:TDigit =
   ('---','   |','   |','   |','   |','   |','   |');

   eight:TDigit =
   (' ---','|   |','|   |',' ---','|   |','|   |',' ---');

   nine:TDigit =
   (' ---','|   |','|   |',' ---','    |','    |',' ---');

   zero:TDigit =
   (' ---','|   |','|   |','|   |','|   |','|   |',' ---');

procedure WriteDigit(var Digit:TDigit; ii:integer);

var
   j:integer;
begin
   for j:=1 to 7 do begin
       gotoxy(pred(ii)*10,j);
       writeln(Digit[j]);
   end;
end;
var

    temp:array[1..11] of char;
    i,j:integer;

Begin

   clrscr;

   write('Введите число : ');

   i:=0;

   repeat

      inc(i);

      temp[i]:=readkey;

      write(temp[i]);

   until temp[i]=#13;

   clrscr;

   i:=1;
   while(not(temp[i]=#13)) do begin
       case temp[i] of

          '1': WriteDigit(one,i);


          '2': WriteDigit(two,i);

          '3': WriteDigit(thre,i);

          '4': WriteDigit(four,i);

          '5': WriteDigit(five,i);

          '6': WriteDigit(six,i);

          '7': WriteDigit(seven,i);

          '8': WriteDigit(eight,i);

          '9': WriteDigit(nine,i);

          '0': WriteDigit(zero,i);

       end;
       inc(i);
   end;

   readln;

End.