помогите написать программу на Delphi

Доброго времени суток.

Пару дней назад этот вопрос уже звучал и ответ вполне подходил под термин "ну накрайняк подскажите". Что ж, еще раз и теперь это будет "ну или хотя б кодом кинте "...

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S, S1 : String;
k, n : Integer;
begin
AssignFile(F, Edit1.Text);
Reset(F);
while not Eof(F) do begin
ReadLn(F, S);
k := 0; {счетчик квадратов нечетных чисел}
S := Trim(S) + ' '; {чтобы не потерять последнее число}
while Pos(' ', S) > 0 do begin
n := StrToInt(Copy(S, 1, Pos(' ', S)-1)); {берем очередное число из строки}
System.Delete(S, 1, Pos(' ', S)); {и удаляем его}
if ((n mod 10) in [1,5,9]) and {число заканчивается на 1, 5 или 9}
(((n-1) mod 100) mod 4 = 0) and {делится на 4}
(((n-1) div 4) mod 2 = 0) then begin {и остаток от деления четный}
k := k + 1; {увеличили счетчик}
Label1.Caption := Label1.Caption + ' ' + IntToStr(n); {добавили число к лейблу}
end;
end;
Label1.Caption := 'Всего - ' + IntToStr(k) + ' Числа: ' + Label1.Caption;
end;
CloseFile(F);
end;

Если по условию надо все-таки извлекать корень, то замените условный оператор на такой

if ((n mod 10) in [1,5,9]) and (Sqr(Trunc(Sqrt(n))) = n) then begin

На форму кинуть едит, лейбл и кнопку сможете?

Удачи!

PS Содержимое файла: 23 45 56 67 81 25 34 49 36 122 121
В лебле: Всего - 4 Числа: 81 25 49 121