Задача на delphi?
Учиться нужно самостоятельно.
Неучи никому не нужны.
функция IntToStr(N: Integer): String
Преобразует целое число N в строку.
функция Pos(Substr: String; Str: String): Integer
Возвращает позицию (индекс) первого вхождения Substr в строке Str. Если Substr нет в Str, возвращает 0.
Остальное вы умеете, я надеюсь.