Нужна помошь с программой

[CAHTA]

как на  чистом паскале сделать преобразование int в str ?

[Finch]

http://hardware.org.ru/faq/answ.php?id=4970
Цитата оттуда

Str (процедура)
    Преобразовывает число в строку.
    Объявление:
    Procedure Str(X ; Var S : String);
    X - любой параметр(целый, дробный)
Val (процедура)
    Преобразовывает строковое значение в его числовое представление.
    Объявление:
    Procedure Val(S; Var V; Var Code : Integer);
    Где:
    S - переменная со строковым типом. Должна представлять
    последовательность символов, формирующих знаковое целое число.
    V - переменная типа Real или Integer
    Code - переменная типа Integer - позиция, в которой произошла ошибка при
    преобразовании, или нуль, если ошибки не было.
   

[Alf]

Если хочешь самостоятельно, без использования библиотечных функций, то что-то вроде

Код:

const
  StrLen = 10;

type
  Str = packed array [1..StrLen] of char;

procedure IntToStr(i: integer; var s: Str)

var
  neg: boolean;
  j: integer;

begin
  for j := 1 to StrLen do
    s[j] := ' ';
  neg := (i < 0);
  i = abs(i);
  j = StrLen;
  repeat
    s[j] := chr(i mod 10 - ord('0'));
    i := i div 10;
    dec(j);
  until (i = 0);
  if neg then
    s[j] := '-';
end;

Набросал прямо здесь, компилировать не пробовал, так что возможны оплошности, проверь сам.

P.S. Кстати, насколько помню, в стандарте от Вирта не было строковых типов, только packed array of char.