Срочно!Помогите!Напишите программу на паскале,которое определяет является ли число простым?И ещё выводит те числа на которые делится.

ReadLn(STROKA);a:= length(STROKA);for I:= 1 to a do   if STROKA[I] == '.' then b:= true;if b == trueThen   WriteLn('Ты чет ваще не прост.');Else   c:= VAL(STROKA);End;For i:= c downto 1 doif c mod I == 0 then Writeln(I);